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(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
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119 

120 

12 1.0 INTRODUCTION 

! 

123 1.1 ABSTRACT 

125 THE RMO3 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH USES 
126 FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RMO3 
127 DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODULE 
128 DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

130 TO DETECT ERRORS AND FAULTS IN THE RMO3 MASSBUS ADAPTER; 

132 TO RESOLVE HARDWARE FAILURES IN RMO3 TO A FIELD REPLACEABLE MODULE 
133 OR MODULES. 

134 

135 

136 

137 1.2 UNIT UNDER TEST 

139 THE UNIT UNDER TEST (UUT) IS THE RMO3 DISK SUBSYSTEM, EXCLUDING 
140 THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER. 

142 

143 

144 2.0 OPERATING REQUIREMENTS 

146 : 2.1 HARDWARE REQUIREMENTS 

148 THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
149 OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO3 DISKLESS 
150 DIAGNOSTIC: 

152 PDP-11 PROCESSOR 

153 16 K MEMORY 

154 KW11-L OR LW11-P CLOCK 

155 PROGRAM LOADING DEVICE 

156 TERMINAL 

157 RH CONTROLLER 

158 UNIT UNDER TEST, 

159 WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS. 
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2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 


CZRMJ~- ,RMO3/02 DISKLESS DIAGNOSTIC PART 1 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER PAPER TAPE, USING THE 


STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 


ERROR 
TEST (CURRENTLY BEING EXECUTED) 
ERROR TYPEOUTS 


TEST ITERATIONS 
ERROR 


ERROR 
TEST IN SWO7-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH og & TO SPECIFY 
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP 
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3.3 STARTING 
THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT VALUES 


OF 
rege A AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 


4.2 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURRS EACH TIME THE PROGRAM IS _ EXECUTED 
FOR ALL ADAPTERS IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.3 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.4 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING Lh EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER 


4.5 ERROR REPORTS 


THE RMO3 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR REPORTS 
INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE REFERENCES TO 
PROGRAM LISTINGS. 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE — COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH GIVE A 
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES 
IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS NORMALLY 
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND 
DATA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST 
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265 RESULTS. 
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5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
RMO3 DISKLESS DIAGNOSTIC IS _ EXECUTABLE ON ANY _ PDP=-11 


THE 
oe PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONFIGURATIONS 
THE RMO3 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMO3 SUBSYSTEMS 


HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS SET TO THE 
APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSITION (A/B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RMO3 DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RMO3 
DISKLESS DIAGNOSTIC. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RMO3 a DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 
on A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP_ IN 
DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 


am. PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 
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6.0 TEST DESCRIPTION 


THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
— USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


“'RMO3 DISKLES DIAGNOSTIC’’ CAN BE EXECUTED USING AN RH70 OR AN 
RH11 MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 


TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE RMO3 CAN COMPLETE A REGISTER TRANSFER ON 
THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER’’ IS NOT 
STUCK IN AN INACTIVE STATE. 


PROCEDURE : 


THE PROGRAM WRITES AND READS REMOTE REGISTERS FOR THE 
SELECTED DEVICE. REGISTER gg hw AND PARITY ERRORS AR 
IGNORED, AND THE TEST FAILS IF A ‘NONEXISTENT DEVICE 

BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 


PROBABLE FAULT: 


THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 


Se ee ee ee ee ee ee ee ee ee ee ee Oe 
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1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 
3. CS MODULE 


TEST 
PURPOSE : 

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE RMO3 
USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
“CONTROLLER TO DEVICE’' HAS NOT FAILED. 

PROCEDURE : 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF ‘‘IF3 CTOD HOLD 
H'' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 

PROBABLE FAULT: 
1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 


ek ee me me me ek me me mek ek me ed ed ed ed ed ad ot ot ot ot ot I OD I SS 


MASSBUS INITIALIZE TEST 
PURPOSE : 


TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
THE MASS BUS. 


PROCEDURE : 

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 


PROBABLE FAULT: 
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1. ASYNCHRONOUS MASSBUS MODULE 
2. IF MODULE 
3. CS MODULE 


CLEAR STUCK ACTIVE TEST 
PURPOSE : 


TO VERIFY THAT ‘MBA CLR L'' ON THE CS MODULE IS NOT STUCK IN 
AN ACTIVE STATE. 


PROCEDURE : 

CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT, 
AFTER WHICH 1°S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
IS OK, ELSE, ‘MBA CLR L'' IS PROBABLY STUCK ACTIVE. 

PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


3. ASYNCHRONOUS MASSBUS MODULE 


TRISTATE TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS_ ADAPTER 
TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
BIT POSITION IS INDEPENDENT. 


PROCEDURE : 


THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A _ NONZERO 
VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 
USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
~ TT eames TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 


a ee me eee ek ce me cee ee me eee ee eee eee ee el ee ee ee eed eel ed ed ed eh eo eh ot eo oh eh eh a at atiaiat 
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THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 


_ EACH BIT POSITION. 


FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT O 
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
BIT POSITIONS. 
PROBABLE FAULT: 

ASYNCHRONOUS MASSBUS MODULE 

IF MODULE 

CS MODULE 


DS MODULE 


REGISTER SELECT TEST 


PURPOSE : 


svieee VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A STUCK 
POS 


PROCEDURE : 


EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS IN 
THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO, THEN 
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE 
ONE. THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 
STUCK AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 
IS REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE, 
THE ONES REGISTER IS WRITTEN FIRST. 


REGISTER SELECT LINES 1, 2, 4 AND 8 ARE TESTED IN ts 
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE ‘‘ILR TEST’ 


PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


SEQ 0013 
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DRIVE TYPE TEST 


PURPOSE : 
TO TEST THE ‘DRIVE TYPE’ REGISTER, RMDT. 


PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFiES THAT THE RESULT 
CORRESPONDS TO A SINGLE PROT OR DUAL PROT RMO3 DRIVE 


PROBABLE FAULT: 
1. IF MOULE 
DEVICE AVAILABLE TEST 


PRUPOSE : . 

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 

THE PROGRAM TESTS 'DVA'',BIT 11 OF RMCS1. 
PROBABLE FAULT: 

1. IF MODULE 


SEARCH TIMEOUT TEST 
PURPOSE : 


TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS ‘OPI"', 
EXCEPT WHEN ‘‘SEARCH TO DiSABLE’' IS ACTIVE. 


PROCEDURE : 


WITH SEARCH TIMEOUT DISABLED, THE TEST EXECUTES A DATA 
COMMAND TO THE POINT WHERE 'P ENABLE SEARCH'’ IS ASSERTED. 
AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING THAT OPI 

IS NOT SET, THE TEST ENABLES SEARCH TIMEOUT AND VERIFIES 
THAT OPI SETS. 


PROBABLE FAULT: 
1. CS MODULE 
NOTE: IT IS ASSUMED THAT THE ‘‘SET OPI TEST‘ HAS 


ALREADY PASSED, THUS MAKING THE IF MODULE 
AN IMPROBABLE FAULT. 
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SET DTE TEST 
PURPOSE : 


IN ADDITION TO VERIFYING THAT ‘DRIVE TIMING ERROR’’ CAN 
BE SET BY THE CS MODULE, THIS TEST ALSO VERIFIES 


* THAT ‘MAINTENANCE SECTOR COMPARE'' IS NOT STUCK AT ONE 
OR ZERO. 


* THAT "ENABLE SEARCH’’ IS NOT STUCK AT ONE OR ZERO. 
PROCEDURE : 

(1) INITIALIZE AND VERIFY THAT ‘DTE'’ IS RESET, THEN 
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL 


RESET. THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP 
IS NOT STUCK AT ONE. 


(2) EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO 
THE POINT WHERE SEARCH IS ENABLED, 1.E., P EN SEARCH H IS 
IS ACTIVE. SET AND RESET THE SECTOR PULSE TO SET ‘'CS3 EN 
SEARCH’ FLOP, AND CLOCK ‘'CSS SECTOR COMPARE*’ FLOP WHICH 


SHOULD NOT SET. SET SECTOR PULSE AND VERIFY THAT DTE IS 
RESET. THIS TEST FAILS IF J INPUT TO SECTOR COMPARE FLOP 
IS STUCK AT ONE. 

REPEAT, BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY 
THAT DTE SETS. THIS TEST FAILS IF MAINTENANCE SECTOR 
COMPARE IS STUCK AT ZERO. 
PROBABLE FAULT: 
1. CS MODULE 


2. DS MODULE 


FORMAT CHANGE TEST 
PURPOSE : 


TO VERIFY THAT A CHANGE IN FORMAT INHIBITS SEARCH 
ENABLE UNTIL THE NEXT INDEX PULSE. 


PROCEDURE : 
THE TEST WILL USE 'DTE*’ FOR VISIBILITY OF ‘'CS3 EN 
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SEARCH H"'. 
THE FOLLOWING STEPS ARE EXECUTED: 


(1) INITIALIZE noe SET THE FORMAT TO 18 BIT MODE 
TO SET "CS3 FMT CHANGE’’ FLOP. 


(2) EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH 
IS ENABLED BY THE SEQUENCER. 


(3) SET ‘MAINTENANCE SECTOR COMPARE'', THEN SET 
"MAINTENANCE SECTOR PULSE*’ TO CLOCK ‘'CS3 EN SEARCH’’ FLOP 
WHICH SHOULD NOT SET BECAUSE OF THE FORMAT CHANGE. 


(4) RESET SECTOR PULSE TO CLOCK ‘'CS5 SECTOR COMPARE"’ 
FLOP WHICH WILL NOT SET IF ‘'CS3 EN SEARCH H"’ IS INACTIVE. 


(5) SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING 
ERROR IS RESET. 


(6) AND RESET INDEX PULSE TOCLEAR THE FORMAT 
CHANGE FLO 


(7) SET AND RESET ATL PULSE TO SET ‘'CS3 EN SEARCH'' 
FLOP AND ‘'CSS5 SECTOR COMPARE" FLOP. 


(8) SET SECTOR COMPARE AND VERIFY THAT DTE IS SET. 


REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE 
TO 16 BIT MODE. 


PROBABLE FAULT: 
1. CS MODULE 


PROM STROBE TEST 
PURPOSE : 


TO VERIFY THAT WORD CLOCK AND PROM STROBE CAN BE MAN~ 
IPULATED IN MAINTENANCE MODE. 


PROCEDURE : 

INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE _ THE 
MAINTENANCE CLOCK UNTIL PROM STROBE SETS. ISSUE ~~ MORE 
MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS. 
PROBABLE FAULT: 


1. CS MODULE 





CZRMKBO RMO3/2 DSKLS PRT 2 


CZRMKB.P11 


14-AUG-78 15:53 


MACY11 30A(1052) 


. € 
18-AUG=78 12:59 PAGE 17 


2. DS MODULE 


SYNC WORD COUNT INHIBIT TEST 


PURPOSE : 

TO VERIFY THE FOLLOWING DURING READ COMMAND: 
* THAT ‘'CS4 P LFS"* (LOOKING FOR SYNC) GOES ACTIVE. 
* THAT ‘LOOKING FOR SYNC'’ INHIBITS THE WORD COUNT 
PROCEDURE : 

READ COMMAND IS SETUP AND EXECUTED TO THE POINT 

WHERE “LOOKING FOR SYNC'’ SHOULD BE ACTIVE, WITH THE 
PROGRAM VERIFYING THE TRANSITION OF THE SIGNAL. THE 
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES 
THAT ‘PROM STROBE'' NEVER GOES ACTIVE. 
PROBABLE FAULT: 
1. CS MODULE IF LFS FAILT, 


2. DS MODULE IF PROM STROBE FAILS. 


SYNC DETECTION TEST 


PURPOSE : 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
RECOGNIZED. 


PROCEDURE : 

THE TEST EXECUTES A READ COMMAND IN MAINTENANCE MODE, 
USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1) TO SIM- 
ULATE THE SYNC BIT STREAM, AND USING PROM STROBE TO DETERMINE 
IF THE SYNC PATTERN HAS BEEN DETECTED. 


THE SYNC PATTERN IS 00011001, WITH THE Nas MOST 
BIT REPRESENTING THE LAST BIT OF THE STREAM 


PROBABLE FAULT: 
1. DS MODULE 
2. CS MODULE 


SEQ 0017 
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SEQ 0018 


ABORT SYNC DETECTION TEST 
PURPOSE : 


TO VERIFY THAT "WORD COUNT INHIBIT'' IS RESET IF A 
“DRIVE TIMING ERROR'’ OCCURS DURING SYNC DETECTION. 


PROCEDURE : 


A READ COMMAND IS INITIATED IN MAINTENANCE MODE. WHEN 
“LOOKING FOR SYNC'' GOES ACTIVE, THE TEST FORCES A DRIVE 
TIMING ERROR AND USES PROM STROBE TO VERIFY THAT ‘WORD 
COUNT INHIBIT'' HAS BEEN RESET. 

PROBABLE FAULT: 


1. DS MODULE 


SYNC GENERATION TEST 
PURPOSE : 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
GENERATED DURING A FORMAT OPERATION. 


PROCEDURE : 

THE TEST EXECUTES A WRITE HEADER AND DATA COMMAND 
IN MAINTENANCE MODE, AND VERIFIES THAT THE CORRECT SYNC 
PATTERN IS GENERATED BY MONITORING WRITE DATA AT THE MAIN~ 
TENANCE REGISTER (RMMR1). 
PROBABLE FAULT: 


1. DS MODULE 


WRITE HEADER TEST 
PRUPOSE : 


TO TEST THE OPERATION OF (1) THE DATA BUFFER AND SHIFT 
REGISTER AS WELL AS (2) THE ECC GENERATION DURING WRITE. 


PROCEDURE : 
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A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE 
MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE 
CRC CHARACTER USING THE WRITE DATA BIT OF THE MAINTENANCE 
REGISTER. 

THE TEST USES CYLINDER 822, TRACK 4, SECTOR 31 AND 
16 BIT FORMAT, WHICH CORRESPONS TO THE FOLLOWING 
HEADER: 

WORD 1 - 1101001100110110 

WORD 2 - 0000010000011111 
PROBABLE FAULT: 

S agg OR MASSBUS MODULE 


D 
HEADER COMPARE T 


PURPOSE : 


TO CHECK THE OPERATION OF (1) THE SHIFT REGISTER AND 
con BUFFER AS WELL AS THE (2) CRC GENERATOR DURING 


PROCEDURE : 

THE TEST EXECUTES A READ HEADER AND DATA COMMAND IN 
MAINTENANCE MODE USING BIT 10 OF THE MAINTENANCE REGISTER 
(RMMR1) TO SIMULATE THE DATA BITS FOR THE FIRST AND SECOND 
HEADER WORDS AS WELL AS THE CRC CHARACTER. THE CRC CHARACTER IS 
IS FAULTED, AND THE TEST VERIFIES THAT A CRC ERROR IS DETECTED. 
ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND 1wWO 
ARE CORRECTLY TRANSFERD TO MEMORY. 

THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT 
THAT BIT 15 IS INVERTED. 


PROBABLE FAULT: 
DS OR IF MODULE IF CRC ERROR NOT DETECTED; 
DS OR MASSBUS MODULE IF DATA INCORRECT 


ECC GENERATION TEST 


PURPOSE : 
TO CHECK ECC OPERATION DURING WRITE. 
PROCEDURE : 
MODE. ALL“ONES DATA FIELD 1S USED, AND. THE TEST VERIFIES 


THE ECC CHARACTER VIA THE WRITE DATA BIT OF THE MAINTENANCE 
REGISTER. THE DATA FIELD IS NOT VERIFIED. 


SEQ 0019 
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an 
~NsnN 
DD»yD 


PROBABLE FAULT. 
DS MODULE 


DETECTION TEST 
PURPOSE : 

TO CHECK THE ECC GENERATION DURING READ. 
PROCEDURE : 

THE TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE 
MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA 
WORD IS FAULTED. 


THE TEST VERIFIES (1) THAT AN ECC ERROR IS DETECTED 
AND THAT (2) THE POSITION AND PATTERN REGISTERS ARE VALID. 


PROBABLE FAULT: 
DS MODULE 


‘ 
' 
; 
; 
) 
: 
: 
; 
, 
L 
' 
1 
1 
1 
1 
1 
1 
1 
} 
: 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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;PROGRAM REVISION #001 

-TITLE CZRMKBO oe DSKLS PRT 2 
;*COPYRIGHT (C) 1978 

> *DIGITAL EQUIPMENT CORP. 

5 SMAYNARD MASS. 01754 

: SPROGRAM BY DOUG RIIKONEN 


: eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
tie (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


000001 $TN=1 
-SBTTL OPERATIONAL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
of 
-* 
>. 
-* 
* 
* 


—_ 
O-NWESUANWOO WS 


Be Be Be Be Be Oe 


™N1 
* SBTTL BASIC DEFINITIONS 


cee he OF THE STACK POINTER *** 1100 *** 
K= 

-EQUIV EMT,ERROR ;sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;sBASIC DEFINITION OF SCOPE CALL 


; *MI SCELLANEOUS seaticachiee ys 
000011 HT= 11 ;CODE FOR HORIZONTAL TAB 
000012 ;CODE FOR LINE FEED 
000015 SE CODE FOR CARRIAGE RETURN 
000200 0 3;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 ;;PROCESSOR STATUS WORD 


177774 STACK LIMIT REGISTER 

177772 1 ;;PROGRAM INTERRUPT REQUEST REGISTER 
177570 S 7 ;HARDWARE SWITCH REGISTER 

177570 177570 7 ;HARDWARE DISPLAY REGISTER 


> *GENERAL PURPOSE REGISTER DEF INITIONS 
000000 RO= %0 3;GENERAL REGISTER 
000001 :GENERAL REGISTER 
000002 GENERAL REGISTER 
000003 >; GENERAL REGISTER 


ee ee ee ae ee ee ey eee ee er eee! Cees Cee Ce ee eee ee ee cee oe a a oe a ee en ee a a ee ee eS eee 
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960 000004 R4= 24 GENERAL REGISTER 1 
961 000005 R5= %5 ‘GENERAL REGISTER 1 
962 000006 R6= %6 3;GENERAL REGISTER 1 
963 000007 R7= x7 ; GENERAL REGISTER 1 
964 000006 SP= 26 3;STACK POINTER 1 
oz 000007 PC= %7 ; PROGRAM COUNTER ! 
967 ;*PRIORITY LEVEL DEFINITIONS 1 
968 000000 PRO= 0 7;PRIORITY LEVEL 0 1 
969 000040 PR1= 40 7;PRIORITY LEVEL 1 1 
970 000100 PR2= 100 ;;PRIORITY LEVEL 2 1 
971 000140 PR3= 140 PRIORITY LEVEL 3 1 
972 000200 PR4= 200 PRIORITY LEVEL 4 1 
973 000240 PR5= 240 i;PRIORITY LEVEL 5 1 
974 000300 PR6= 300 ;PRIORITY LEVEL 6 1 
one 000340 PR7= 340 7;PRIORITY LEVEL 7 } 
977 3*""SWITCH REGISTER’' SWITCH DEFINITIONS 1 
978 100000 Sw15= 100000 1 
979 040000 SW14= 1 
980 020000 SW13= 20000 1 
981 010000 Sw12= 10000 1 
982 0 SW11= 4000 1 
983 2 Sw10= 00 1 

001000 Sswo9= 1000 1 
985 000400 SwO8= 400 1 

000200 Sw07= 200 1 
987 000100 Sw06= 100 

000040 SwOS= 40 
989 000020 SwWO4= 20 

000010 SwO3= 10 
991 000004 SwO2= 4 
992 000002 SwOl= 2 
993 000001 SwOoO= 1 
994 EQUIV SW09,SW9 
995 -EQUIV SWO08,SW8 

-EQUIV SWO7,SW7 
997 EQUIV SW06,SW6 
998 EQUIV SW05,SW5 
EQUIV SWO4,SW4 

1 EQUIV SW03,SW3 
1001 -EQUIV SWO2,SW2 
1002 -EQUIV SWwO1,SW1 
ie? -EQUIV SwW00,SWO 
1005 ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
1006 100000 BIT15= 
1007 040000 BIT14= 40000 
1008 020000 BIT13= 20000 
1 010000 BIT12= 10000 
1010 004000 BIT11= 
1011 2000 BIT10= 2000 
1012 001000 BITO9= 1000 
1013 000400 BITO8= 400 
1014 000200 BITO7= 200 
1015 000100 BIT06= 100 
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000040 BITO5= 
000020 
000010 
000004 


T06,BIT 
B1T05,BI1T5 
B1T04,BIT4 
B1T03,B1T3 
BIT02,BIT2 
B1T01,BIT1 

-EQUIV BITOO,BITO 


K 2 
12:59 PAGE 23 


ge 8 A ial TRAP VECTOR ADDRESSES 


PIRQVEC=240 


TIME OUT AND OTHER ERRORS 
:SRESERVED AND ILLEGAL INSTRUCTIONS 


33 TRACE TRAP 
; ;BREAKPOINT TRAP (BPT) 
33 INPUT/OUTPUT TRAP (10T) **SCOPE** 
3:POWER FAIL 
;;EMULATOR TRAP (EMT) **ERROR** 
** TRAP 


::TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
: PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RMO3 REGISTER BIT DEFINITIONS 
:RMCS1 CONTROL STATUS REGISTER 


:DEVICE AVAILABLE-READ ONLY 
FUNCTION CODE 
SFUNCTION CODE 
FUNCTION CODE 
SFUNCTION CODE 


SEQ 0023 
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000002 FO FUNCTION CODE 

000001 GO :G0 B 

000077 FNCMSK FUNCTION CODE MASK 
FUNCTION CODES (BITS 01-05 OF RMCS1) 


000000 NOP COMMAND 

; ILLEGAL COMMAND 
7SEEK COMMAND 

:RECAL IBRATE COMMAND 


OFFSET COMMAND 
[RETURN TO CENTERLINE COMMAND 
;READ IN PRESET COMMAND 

PACK ACKNOWLEDGE COMMAND 


+ ILLEGAL COMMAND 


ILLEGAL COMMAND 
sWRITE CHECK DATA COMMAND 
;WRITE CHECK HEADER AND DATA 
: ILLEGAL COMMAND 
; ILLEGAL COMMAND 
;WRITE DATA COMMAND 
;WRITE HEADER AND DATA COMMAND 
ILLEGAL COMMAND 
ILLEGAL C 
READ DATA COMMAND 
;READ HEADER AND DATA COMMAND 
ILLEGAL COMMAND 

000076 ; ILLEGAL COMMAND 


DISK ADDRESS REGISTER 


: TRACK ADDRESS 4 


“SECTOR ADDRESS 1 
; TRACK, SECTOR MASKS 


TADMSK = 003400 ; TRACK ADDRESS MASK 
SADMSK = 000037 SECTOR ADDRESS MASK 


Re oo oe 
St td a ot ot ot 


mS mm So 3 SS Ss GH os = 
SELKSRELLES 


_~— 
yt 2) 
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1112 
iy zsRMDS DRIVE STATUS REGISTER 
1115 100000 ATA = BIT15 zATTENTION ACTIVE 
1116 040000 ERR = BIT14 : COMPOSITE ERROR 
1117 020000 PIP = B1T13 POSITIONING IN PROGRESS 
1118 010000 MOL = BIT12 ;MEDIUM ON LINE 
1119 000 WRL = BIT11 WRITE LOCK 
1120 002000 LBT = BIT10 LAST BLOCK TRANSFERRED 
1121 001000 PGM = BITO9 : PROGRAMMABLE 
1122 00 DPR = BITO8 DRIVE PRESENT 
1123 000200 DRY = BIT07 : DRIVE READY 1 
1124 000100 VV = BIT06 VOLUME VALID 1 
ie 000001 OM = B1ITOO sOF FSET MODE ACTIVE , 
4 34 :RMER1 ERROR REGISTER #1 } 
1129 100000 DCK = BIT15 DATA CHECK ERROR 1 
1130 040000 UNS = BIT14 DRIVE UNSAFE 1 
1131 020000 OPI = BIT13 OPERATION INCOMPLETE 1 
1132 010000 DTE = BIT12 DRIVE TIMING ERROR 1 
1133 004000 WLE = BIT11 WRITE LOCK ERR 1 
1134 002000 IAE = B1T10 : INVALID ADDRESS ERROR 1 
1135 001000 AOE = BITO9 ADDRESS OVERFLOW ERROR 1 
1136 00 HCRC = BITO8 HEADER CRC ERROR 1 
1137 000200 HCE = BIT07 SHEADER COMPARE ERROR 1 
1138 000100 ECH = BIT06 ZECC ‘HARD’ OR 1 
1139 0 WCF = BITOS “WRITE CLOCK FAILURE 1 
1140 000020 FER = BITO4 FORMAT ERROR 1 
1141 000010 PAR = BITO3 “PARITY ERROR 1 
1142 000004 RMR = BITO2 “REGISTER MODIFICATION REFUSED 1 
1143 000002 ILR = BITO1 ILLEGAL REGISTER 1 
bye 000001 ILF = BITOO ‘ILLEGAL FUNCTION . 
1146 115760 NDTMSK = DCK!DTE!WLE !AOE!HCRC!HCE!ECH! WCF !FER 1 
1147 :'NDTMSK’' IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 1 
bp COMMANDS, I.£., HOUSEKEEPING AND POSITIONING COMMANDS } 
Ar. :RMAS ATTENTION SUMMARY REGISTER : 
136 000377 ATNMSK = 377 MASK FOR ATTENTION BITS : 
: fs. zRMLA LOOK AHEAD REGISTER ’ 
1156 002000 SC4 = B1T10 SECTOR COUNT = 16 1 
1157 1000 Sc3 = BITO9 SECTOR COUNT = 8 1 
1158 000400 Sc2 = BIT08 SECTOR COUNT = 4 1 
1159 000200 Sc] = BITO7 SECTOR COUNT = 2 1 
1160 100 Sco = BIT06 SECTOR COUNT = 1 ] 
: 16¢ 003700 SCTMSK = 003700 SECTOR COUNT MASK : 
bee! ;RMMR MAINTENANCE REGISTER L 
1166 : WRITE ONLY BITS 1 
1167 1 
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SEQ 0026 
CZ7RMKB.P11 14-AUG-78 15:53 RMO3 REGISTER BIT DEFINITIONS 
1168 100000 DBCK = BIT15 ;DEBUG CLOCK 
1169 040000 DBEN = 


BIT14 ;DEBUG CLOCK ENABLE 
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= 
“N 
oO 


;DIAGNOSTIC END OF BLOCK 
DIAGNOSTIC TIMEOUT 
MAINTENANCE CLOCK 

READ DATA 

UNIT READY 

;0N CYLINDER 

; SEEK ERROR 

DRIVE FAULT 

SECTOR PULSE 

WRITE PROTECT 


SNNNNNNN 
ONAOULSWN— 


3 E 
B1ITOO :DIAGNOSTIC MODE 
DMD !MUR ! DBEN!MOC !DTO 


OCCUPIED 

;RUN AND GO 

END OF BLOCK 
EXCEPTION 
;ENABLE SEARCH 
;LOOKING FOR SYNC 
;ENABLE CRC OUT 


ENABLE ECC OUT 

WRITE DATA BIT 

LAST SECTOR 

;LAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


ee kk kk a dd oJ od 2 ot 


1 
; 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
; 
j 
} 
; 
1 
; 
: 
; 
1 
; 
; 
; 
; 
; 
} 


SSSLEFRANLESELEARRALLSS 


NM 


DRIVE TYPE REGISTER 


BIT15 NOT SECTOR ADDRESSED=0 
BIT14 TAPE DRIVE = 0 
BIT13 :MOVING HEAD = 1 
B1T11 :DRIVE REQUEST REQUIRED 


020024 ;SINGLE PORT DRIVE TYPE 
024024 ;DUAL PORT DRIVE TYPE 


OFFSET REGISTER 


020024 SNGPRT 
024024 DULPRT 


316 BIT WORD FORMAT 
ECC INHIBIT 
SHEADER COMPARE INHIBIT 
OFFSET FORWARD 

161577 [UNUSED BITS OF RMOF 


000200 
161577 
DESIRED CYLINDER ADDRESS REGISTER 


;RMDC 
001777 1777 MASK FOR CYLINDER ADDRESS 
176000 176000 UNUSED BITS OF RMDC 
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001567 


100000 
040000 
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RMO3 REGISTER BIT DEFINITIONS 


MAINTENANCE REGISTER #2 
READ ONLY BITS 
BIT15 


SEQ 0028 


PORT A REQUEST 

PORT B REQUEST 

: TAG CONTROL 

COMMAND SEQUENCE TEST BIT 
;CONTROL OR CYLINDER TAG 
;CONTROL OR HEAD TAG 

;TAG BUS 


;BAD SECTOR ERROR 
SEEK INCOMPLETE 
;OPERATOR PLUG ERROR 

; INVALID COMMAND ERROR 
;LOSS OF SYSTEM CLOCK 
;LOSS OF BIT CLOCK 
sDEVICE CHECK 

DATA PARITY ERROR 
UNUSED BITS OF RMER2 


MANUFACTURING DETECTED SECTOR ERROR 
;USER DETECTED SECTOR ERROR 


;CONTROL STATUS REGISTER 
:DISK ADDRESS REGISTER 
DRIVE STATUS REGISTER 
sE REGISTER 1 


“MAINTENANCE REGISTER 
:DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
SOFFSET REGISTER 

; DESIRED IF at REGISTER 


GIST 
“ECC POSITION REGISTER 





C2 
C2 
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P71 14-AUG-78 15:53 RMO3 REGISTER INDEX VALUES 
1282 000046 RMEC2 = 46 ECC PATTERN REGISTER 
1283 000050 ILRGSO = 50 ; ILLEGAL REGISTER 50 
1284 000052 ILRG5S2 = 52 ILLEGAL REGISTER 52 
1285 000054 ILRGS4 = 54 ZILLEGAL REGISTER 54 
1286 000056 ILRG56 = 56 ILLEGAL REGISTER 56 
1287 000060 ILRG6O = 60 ILLEGAL REGISTER 60 
2 ILRG62 = 62 ILLEGAL REGISTER 62 
1289 000064 ILRG64 = 64 ILLEGAL REGISTER 64 
000066 ILRG66 = 66 ILLEGAL REGISTER 66 
291 000070 ILRG70 = 70 ILLEGAL REGISTER 70 
000072 ILRG72 = 72 ILLEGAL REGISTER 72 
293 000074 ILRG74 = 74 ILLEGAL REGISTER 74 
000076 ILRG76 = 76 ILLEGAL REGISTER 76 
000077 IDXMSK = 77 MASK FOR REGISTER INDEX NUMBER 


-SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
RMCS1 CONTROL STATUS REGISTER #1 


SSeS SSeS eSyye Easy 


mee kk ek ek ek kd ed ed ed ed ad = od od SS 2 SS SS ot ot ot ot 


100000 SC = BIT15 SPECIAL CONDITION-READ ONLY 

040000 TRE = BIT14 ; TRANSFER ERROR 

020000 MCPE = BIT13 ;MASSBUS CONTROL BUS PARITY 

sERROR-READ ONLY 
000 PSEL = BIT10 ;PORT B SELECT 
001000 A17 = BITO9 zsADDRESS EXTENSION 
00 A16 = BITO8 s ADDRESS EXTENSION 

310 000200 RDY = BITO7 ;READY-READ ONLY 
> 000100 IE = BIT06 INTERRUPT ENABLE 
a ;RMCS2. RH CONTROL STATUS REGISTER #2 
315 00 DLT = BIT15 DATA _LATE~READ ONLY 
316 040000 WCE = BIT14 ;WRITE CHECK ERROR-READ ONLY 
317 UPE = BIT13 ;UNIBUS PARITY ERROR 
318 1 NED = BIT12 s;NONEXISTANT DRIVE-READ ONLY 
319 4004000 NEM = BIT11 ;NONEXISTANT MEMORY-READ ONLY 
320 002000 PGE = BIT10 PROGRAM ERROR-READ ONLY 
321 001000 MXF = BITO9 sMISSED TRANSFER 
1322 000400 MDPE = BITO8 ;MASSBUS DATA BUS PARITY 
1323 sERROR-READ ONLY 
1324 000200 OR = BITO7 ;OUTPUT READY-READ ONLY 
1325 000100 IR = BIT06 ; INPUT READY-READ ONLY 
1326 000040 CLR = BITO5 Ment es od CLEAR 
1327 000020 PAT = BIT04 :PARITY TEST 
1328 000010 BAI = BITO3 ;UNIBUS ADDRESS INCREMENT 
1329 : INHIBIT 
1330 000004 U2 = BITO2 UNIT SELECT 
1331 000002 U1 = BITO1 UNIT SELECT 
133 000001 ud = BIT00 SUNIT SELECT 
1334 UNIT SELECT MASK 
atte 000007 UNTMSK = 7 UNIT SELECT MASK 


1337 ;RMCS3 RH70 CONTROL STATUS REGISTER #3 
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1338 ADDRESS PARITY ERROR 
1339 
1340 


$ E 
ZINVERT PARITY CHECK 
S INVERT PARITY CHECK 
; INVERT PARITY CHECK 
B1IT0O INVERT PARITY CHECK 
H CONTROLLER REGISTER INDEX VALUES 


;CONTROL, STATUS REGISTER 
[WORD COUNT REGISTER 

BUS ADDRESS REGISTER 

; CONTROLLER STATUS REGISTER 
[DATA BUFFER 

BUS ADDRESS EXTENSION 
CONTROL STATUS REGISTER #3 


176700 ;UNIBUS ADDRESS 
120254 ;UNIBUS VECTOR ADDRESS AND PRIORITY 


2" pinninnnn nw 


KEFEELESE 


WIWNWWNWANWWNNWWGS 
| 


MAMI 
ODWNAUESWNODOONAUSWH— 


176700 ABASE 
120254 AVECT1 


aRReS 


.SBTTL TRAP CATCHER 


000000 -= 
7*ALL UNUSED LOCATIONS FROM 4 ~ 776 CONTAIN A ''.+2,HALT"’ 

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

000174 Ja ctetalate Ay CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000000 DISPREG: WORD 0 7:SOFTWARE DISPLAY REGISTER 
000000 SWREG: .WORD 0 3;SOFTWARE SWITCH REGISTER 


SESsee 


NN 


“yyy 
WH OO 


-SBTTL ACT11 HOOKS 


FIORE A SASSI II SISISSISSSSSAS ASAI AN. 
;HOOKS REQUIRED BY ACT11 
$SVPC=. SAVE PC 


SENDAD 321)SET LOC.46 TO ADDRESS OF $SENDAD IN .$EOP 


000000 “WORD 0 ::2)SET LOC. 322 TO ZERO 
000200 -=$SVPC +: RESTORE P 


-SBTTL STARTING ADDRESS 
; THE PROGRAM STARTS AT LOCATION 200 
000200 . = 200 
000137 002632 JMP START ; JUMP TO START OF PROGRAM 


001100 -=1100 
-SBTTL APT PARAMETER BLOCK 


Wr 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
: 
: 
1 
; 
1 
; 
; 
] 
: 
F 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
; 
} 
; 
; 


SSSSSSSRSRESESISISIS 
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pita hahahahahehalalalahahaheheiehaiaielahahahaiaiahaiahaielateheiaheheileieiaiaieieisieisiaiaisiaiaieicleleieieicieisieieielahel 


=SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DP REE ERE EERE EEE REE REE E RE RE ERR 
:;SAVE CURRENT LOCATION 
::SET POWER FAIL TO POINT TO START OF PROGRAM 
>:FOR APT START UP 
::POINT TO APT INDIRECT ADDRESS PNTR. 
t:POINT TO APT HEADER BLOCK 
SERESET LOCATION COUNTER 
SLI IIR III EERE RIK RIE REE 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
TINTERFACE SPEC. 


0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MAIL : TADDRESS OF APT MAILBOX (BITS 0-15) 

1 3;RUN TIM OF LONGEST TEST 

2 +s RUN tice IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

2 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SeTEND-ShAIL/2 3;LENGTH MAILBOX-E TABLE (WORDS) 


000042 
001114 
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-SBTTL COMMON TAGS 


IT ITI HIKE EEK KEK KKK EK KEE KEKE KKEEEEKEKEEKKKKKEE 


**THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
**USED IN THE PROGRAM. 


SCMTAG: 7¢START OF COMMON TAGS 


3;CONTAINS THE TEST NUMBER 
3 ERROR FLAG 
SUBTEST i one’ COUNT 
OOP ADDRESS 


ASNONALS 


TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD DATA 
ADDRESS OF ‘BAD' DATA 

"GOOD" DATA 

"BAD' 


:3 DATA 
;RESERVED--NOT TO BE USED 


3; ;AUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
: sADDRESS OF DISPLAY REGISTER 
KBD STATUS 


:-TTY KBD BUFFER 
eeTTy PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. saya 
Z:CONTAINS NULL CHARACTER FOR FILLS 
2:CONTAINS # OF FILLER CHARACTERS REQUIRED 
+2 INSERT FILL CHARS. AFTER A ‘LINE _FEED"’ 

" "TERMINAL alae FLAG (BIT<07>=0=YES) 


— et ed SS eS SS SS SS 
N— 


88888888883333 
RapuaappNyosss 


leleleleleleleleloelon jejleleleleleilole) 


5 


Sooocoe7; ve 


NUMBER OF ITERATIONS 
000000 :0 ESCAPE ON ERROR ADDRESS 
177607 000377 $BELL: .ASCIZ >» idioed iamcaie CODE FOR BELL 
077 es 7 QUESTION MARK 
015 2 CiS> 7: CARRIAGE RETURN 
000012 : . <12> scLINE FEED 


FD I I II III RIT ITT TIT RRR RRR RR 


-SBTTL APT MAILBOX~ETABLE 


SIR TR RRR KERR EERE EERE EERIE EERE ERE RR EK 


«NLIST ME 
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;;APT MAILBOX 
3:MESSAGE TYPE CODE 
3;FATAL ERROR NUMBER 


:;DEVICE COUNT 
1/0 UNIT NUMBER 
; :MESSAGE ADDRESS 


11704201. "11 /05= 02,11/20=03,11/40=04,11/45=05 
11/70=06 .PDQ=07 ,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
t « AMAM ;;HIGH ADDRESS,M.S. BYTE 
001253 3 « MEM. TYPE BLKA1 
; MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
3:HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
3;HIGH ADDRESS,M.S. BYTE 
‘er TYPE ,BLKA 
3;MEM.LAST ADDRESS ,BLK#2 
GH ADDRESS ,M.S.BYTE 
MEM. TYPE ,BLKA3 
oat a LAST ADDRESS ,BLK43 
HIGH ADDRESS,.M.S.BYTE 
> EMEM. TYPE ,BLKA4 
3;MEM.LAST ADDRESS ,BLKA4 
INTERRUPT VECTOR#1,BUS PRIORITYA1 
SEINTERRUPT VECTORA2BUS PRIORITY#2 
: ;BASE ADDRESS OF EQUIPMENT UNDER TEST 


DEVICE MAP 
:: CONTROLLER DESCRIPTION WORDA1 
: CONTROLLER DESCRIPTION WORDA2 
ICE DESCRIPTOR #0 


DESCRIPTOR WORD#3 
DESCRIPTOR WORDA4 
DESCRIPTOR WORDS 
33 DESCRIPTOR WORDA6 
7;DEVICE DESCRIPTOR WORD#7 


MO OONAUSWN-—O N 


ee a ek ee ed ed ed ed od od 
MMAMAMA AM MAMA AA TI 
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-SBTTL REGISTER INPUT BUFFER 


THE REGISTER INPUT ge IS USED FOR STORING REGISTER 
CONTENTS AS THEY ARE READ FROM THE DEVICE. 


RMCS1I: .WORD ;CONTROL,STATUS REGISTER #1 
: WORD COUNT REGISTER 

;BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
SDRIVE STATUS REGISTER 
SERROR REGISTER 1 
;ATTENTION SUMMARY REGISTER 
;LOOK AHEAD REGISTER 
;DATA_BUFFER 
MAINTENANCE REGISTER #1 
;DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
:DESIRED ty pos REGISTER 


GI 
C POSITION REGISTER 
“ECC C PATTERN REGISTER 
;BUS ADDRESS EXTENSION REGISTER 


CONTROL, STATUS REGISTER #3 


REGISTER OUTPUT BUFFER 


THE REGISTER OUTPUT BUFFER IS USED FOR ASSEMBLING DATA TO 
BE WRITTEN TO THE DEVICE. 


RMCS10: .WORD : CONTROL , STATUS REGISTER #1 
Ss D COUNT REGISTER 


OUNT RE 
“BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
:CONTROL, STATUS REGISTER #2 
;DRIVE STATUS REGISTER 


MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 
;SERIAL NUMBER REGISTER 

[OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

sHOLDING REGISTER 

:MAINTENANCE REGISTER #2 
;ERROR REGISTER 2 

SECC POSITION REGISTER 





ARIAIARIAIAIA IA IA IA IA IA IA IA) 
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000012 
172540 


J 3 
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REGISTER OUTPUT BUFFER 


RMEC20: .WORD ECC PATTERN REGISTER 
RMBAEO: .WORD ;BUS ADDRESS EXTENSION REGISTER 
RMCS30: .WORD ;CONTROL, STATUS REGISTER #3 


-SBTTL TEST QUE 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
“THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. A ZERO 
:WORD IS A BLANK AND REPRESENTS THE END OF THE QUE. 


TSTQUE: 10. TEST QUE 


SLPCSR: 172540 3KW11-P CONTROL + STATUS REGISTER 
$LPCSB: 7KW11-P COUNT SET BUFFER 
SLPVEC: 1 ;KW11-P INTERRUPT VECTOR 


106 
SLLCSR: ;KW11-L CONTROL + STATUS REGISTER 
$LLVEC: — 100 ;KW11-L INTERRUPT VECTOR 


STORAGE FOR PRIORITY 
STORAGE FOR ELAPSED TIME 
STORAGE FOR REMAINING TIME 
;ADDRESS OF START CLOCK SUB 
;ADDRESS OF STOP CLOCK SUB 


;PUT TAGS HERE 





o 
™ 
wm 


SEQ 0035 


o 
MN 
MIA) WD 


me me om Me Om om om om 2M 2m 2m che cM 2M om 2m 1 2M 1M 1H 1M 2M 1M 1H 1M 1H 1M 1A 1M 1M 1A 1H 1A 1A 1A 1M 1A 1AM 1A SM 1A 1A 1A IA DADA IAIA AIA IAIJAIAJA) 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

7*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

: *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE a # i PERTINENT. 
*NOTE1: IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRP 

‘ #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


: 7;POINTS TO THE ERROR MESSAGE 
: 3;POINTS TO THE DATA HEADER 

: 3sPOINTS TO THE DATA 

: 33POINTS TO THE DATA FORMAT 


001532 SERRTB: 


ADAIR IAR AAI AAAI AIA IA IAIAIAIAIAIAIAIAIAIAIAIAINIAIAIAIRIAIRINIAIAIAIAINIAINIAIAIAINRIAINRIAIRIAININIAINRIAIAIPO 
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ERROR CANNOT CLEAR NED STATUS 


031744 


Nnoanonynonr 


CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


ERROR CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


040020 


CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
OF DEVICE REGISTERS 


032110 





CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 yk y 
CZRMKB.P11 14-AUG-78 15:53 
1683 
1684 
1685 ERROR 
1686 
1687 001622 032132 
1688 001624 000000 
1689 001626 000000 
1690 1630 000000 
1691 
1692 
1693 ;ERROR 
1694 
1695 001632 032150 
1696 1634 000000 
1697 001636 000000 
1698 001640 000000 
1699 
1700 
1701 ; ERROR 
1702 
1703 001642 032166 
1704 001644 000000 
1705 001646 000000 
1706 001650 000000 
1707 
1708 
1709 s ERROR 
1710 
1711 001652 032204 
1712 001654 000000 
1713 001656 000000 
1714 1660 000000 
1715 
1716 
1717 ; ERROR 
1718 
1719 0016 032222 
1720 601 000000 
1721 001 000000 
1722 001670 000000 
1723 
1724 
1725 ERROR 
1726 
1727 001672 032240 
1728 001674 000000 
1729 001676 000000 
1730 1700 000000 
1731 
732 
1733 ; ERROR 
1734 
1735 001702 032256 
1736 001704 000000 
1737 001706 000000 
1738 001710 000000 


mM 3 
2) 18-AUG-78 12:59 PAGE 38 
OR POINTER TABLE 


10 
EMT10 


EMT11 


REGISTER SELECT 1 APPEARS 


REGISTER SELECT 1 APPEARS 


REGISTER SELECT & APPEARS 


REGISTER SELECT 2 APPEARS 


REGISTER SELECT 4 APPEARS 


REGISTER SELECT 4 APPEARS 


REGISTER SELECT 8 APPEARS 


S-A-0 


S-A-1 


S-A-0 


S-A-1 


S-A-0 


S-A-1 


S-A-0 


SEQ 0038 CZR 


oO 
™N 
mm DD 


AoA IAAI ADAIR AIA IAI AIAIAIADAIAIAIAIRIAIRIAIAINIAIAIAIAINRIAIRIAIR ORI RO RIP PO RIM RIP RPO PRON PU PP nnn 
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CZRMKB.P11 14-AUG-78 15:53 ERROR POINTER TABLE 
1739 
1740 
14} ERROR 17 REGISTER SELECT 8 APPEARS S-A=-1 
1743 001712 032274 EMT17 
1744 001714 000000 0 
1745 001716 000000 0 
1746 001720 000000 0 
1747 
1748 
1708 zERROR 20 OPI SET WITH SEACH TIMOUT DISABLED 
1751 001722 032312 EMT20 
1752 001724 037650 EHT1 
1753 001726 037760 EDT1 
1754 001730 040014 EFT1 
1726 
eld ERROR 21 OPI SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 
1759 0017%2 34 EMT21 
1760 001734 037650 EHT1 
1761 001736 037760 EDT1 
1762 001740 040014 EFT 
1763 
1764 ® 
1765 ‘ ERROR 22 DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED 
1767 001742 032256 EMT22 
1768 001744 037650 FHT1 
1769 001746 037760 EDT1 
1770 001750 040014 FFT1 
1959 
1a ERROR 23 DTE SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 
1775 001752 032402 EMT23 
1776 001754 037650 EHT1 
1777 001756 037760 EDT1 
1778 001760 040014 EFT 
178 
fe ERROR 24 DTE DID NOT SET WITH SECTOR PULSE,SECTOR COMPARE WAS SET 
1783 001762 032426 EMT24 
1784 001764 037650 EHT1 
1785 001766 037760 EDT1 
1786 001770 040014 EFT1 
1788 
fa a4 ERROR 25 DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE 
1791 001772 032452 EMT25 
1792 001774 037650 EHT1 
1793 001776 037760 EDT1 


1794 002000 040014 EFT1 
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ERROR 26 MBA CLR L IS STUCK ACTIVE 
032472 EMT 26 
000090 0 
000000 
000000 


; ERROR COULD NOT SET DTE AFTER FORMAT CHANGE 


032524 
037650 
037760 
040014 


CANNOT SET PROM STROBE WITH BIT CLOCK 


032544 
037650 
037760 
040014 


oad cal cal cael el anh aad eal nal ald 
0 00 00 00 00 Co 09 CO CO CO 
aad ad ed aed aed anh aa cod nd 
WCONAUBRWN—O 


CANNOT CLEAR RMER1,DTE 


002032 032564 
002034 


002036 
002040 040014 


PROM STROBE RESET EARLY 
032600 


040014 


PROM STROBE SET EARLY 
032612 
037650 
037760 
040014 
LOOKING FOR SYNC SET EARLY 


032624 


002066 
002070 040014 
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; ERROR LOOKING FOR SYNC DID NOT SET 
032636 
040014 


PROM STROBE SET WHILE LOOKING FOR SYNC 
032650 


002106 
002110 040014 


SYNC DETECTED WITH WRONG PATTERN 


032670 
037724 


040004 
040032 
SYNC NOT DETECTED 
032720 
037650 
037760 
040014 
DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC 
032742 
037650 


037760 
040014 


WRITE GATE DID NOT COME ON OR RESET EARLY 
032770 


‘ 


; ERROR INCORRECT SYNC PATTERN DURING HEADER 


002160 





CZRMKBO RMO3/2 DSKLS PRT 2 
CZRMKB.P11 


1907 


33 


ee ed ed td ed wd A 
ODODODO0O00O 
od od od od I 

@DONAUSWN—O 


» °) 
= 


14-AUG=78 15:53 


033040 
037650 
037760 
040014 
033054 


040014 


033070 


040014 


033106 
037650 
037760 
040014 


033210 


040022 


MACY11 30A(1052) 


; ERROR 


ERROR 


; ERROR 


; ERROR 


7; ERROR 


; ERROR 


; ERROR 


D 4 
18-AUG-78 12:59 PAGE 42 SEQ 0042 
ERROR POINTER TABLE 7 


INCORRECT SYNC PATTERN DURING HEADER 


HEADER AREA DID NOT COME ON OR RESET EARLY 


CRC ENABLE DID NOT SET 


INCORRECT HEADER GENERATED DURING WRITE 


READ GATE INCORRECT DURING HEADER AREA 


UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE 


INCORRECT HEADER READ IN DIAGNOSTIC MODE 


CZF 
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1963 é 

1964 P 

bs 4 ERROR 53 INCORRECT TAG BUS DURING DATA COMMAND é 
< 

1967 002252 037544 EMT276 é 

1968 002254 037650 EHT1 é 

1969 002256 037760 EDT1 P 

1970 002260 040014 EFT1 : 

1303 : 
c 

sf ERROR 54 DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND ] 
< 

1975 002262 033172 EMT54 < 

1976 002264 037650 EHT1 2 

1977 002266 037760 EDT1 3 

1978 002270 040014 EFT1 4 

1979 ; 

1980 ‘ 

= 1 ERROR 55 DATA AREA DID NOT COME ON OR RESET EARLY P 
< 

1983 002272 033210 EMT55 4 

1984 002274 037650 EHT1 ‘ 

1985 002276 037760 EDT1 ‘ 

1986 002300 040014 EFT1 4 

1987 ; 

1988 ‘ 

fe 4 ERROR 56 ECC ENABLE DID NOT SET 

1991 002302 033226 EMT56 

1992 002304 037650 EHT1 

1993 002306 037760 EDT1 

1994 002310 040014 EFT1 

1995 

1996 

bal sERROR 57 DEVICE IS NOT AN RMO3 

1999 002312 033242 EMTS7 

2000 002314 037700 EHTS7 

2001 002316 037772 EDTS7 

2002 002320 040022 EFTS7 

2003 

2004 

2005 ERROR 60 DEVICE AVAILABLE IS NOT SET 

2007 002322 033256 EMT60 

2008 002324 037650 EHT1 

2009 002326 037760 EDT1 

2010 002330 040014 EFT1 

2011 

2012 

oz ERROR 61 INCORRECT ECC PATTERN GENERATED DURING WRITE 

2015 002332 033272 EMT61 

2016 002334 037704 EHT61 

2017 002336 037774 EDT61 


2018 002340 040022 EFTS7 


CZRMK' 
CZRMK 


BO RMO3/2 
B.P11 


002342 
002344 


002410 


002412 


DSKLS PRT 2 


14-AUG=78 15:53 


033310 
037650 
037760 
040014 


033326 
037650 


040014 


033354 
037650 
037760 
040014 


033366 
000000 
000000 
000000 


033402 
000000 
000000 
000000 


033420 


F 4 
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ERROR POINTER TABLE 


; ERROR CANNOT CLEAR PROM STROBE WITH BIT CLOCK 


DATA AREA DID NOT RESET 


UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE 


INCORRECT DATA TRANSFERRED TO MEMORY 


;ERROR 


7; ERROR 





ao 
Ns 
wD 


SEQ 0044 


ao 
MN 
Dw 


Mm DAR RAR RAR RAR AA AR AIA IAA AIA IAI AIA AIAIAIAIAIAIANIAINIAIRIAIAIAIAIAIANIAIANIAIARINIAIAIANIAINIANIAINIAININAIAIN 


oO 
MN 
DD 
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ao 
™N 
yD 


033440 ee 


: ERROR 


033510 
000000 


000000 
000000 


033530 


033540 
000000 
000000 
000000 


033552 


enh cad anh ach anh and ond and on ad 
anh ead and ash eat cs cd a a eed 
WONAUWUSWH-O 


002520 


;ERROR 100 CANT SET VOLUME VALID 
002522 035374 EMT170 
037744 
040004 
040032 EFT115 


ASA IR ARIA AIA RA ARIA AIA IAAI ARIA IARI AIAIAIAIAIAIAIAIAIAIAIAINIANIAIAIAIAIAIANIAIAIAIANIAIAIAIAINIAIAINIAI ARIANA 
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;ERROR 101 RUN AND GO WONT SET 
037524 
037650 
037760 
040014 
SEARCH ENABLE WONT SET 


035422 
040014 


OCCUPIED IS INCORRECT FOR FUNCTION CODE 
035440 


040032 EFT115 
104 READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 


035462 EMT174 
000000 0 


000000 0 
0000 0 


105 READ IN PRESET DIDNT CLEAR RMOF 
035510 EMT175 
037650 
037760 
040014 
READ IN PRESET DIDNT CLEAR RMDA 


035526 


READ IN PRESET DIDNT CLEAR RMDC 


040014 


ArA nArAWi AIA AINAINININIAINAINIAINIANIAINIAINIAIAINIAINIAIA) AIA AD AINIAINIAININI NI NINN PI NRIA PD 
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ERROR 110 CANT SET OFFSET MODE BY OFFSET COMMAND 2 
035562 EMT 200 2a 


040014 2 


;PUT ERROR TABLE HERE 5 


Ao ARa Ao AINnIPINININININININIAININIMINIAININDAIDNIMIN NINN MINI NON POM NNO PNM MN PPP 
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14-AUG=78 15:53 


CZRMKB.P11 


012737 


013746 


012737 


012746 
012746 
000002 


001114 
001154 
001100 


026076 
000340 
026460 
00034 


002770 


003036 
177570 
177570 
177777 


003044 
000176 
000174 
000004 


001230 
000200 


001244 


000140 
003120 


J 
MACY11 30A(1052) oes 12:59 


000020 


021524 


001131 
001122 
001124 


001243 
001154 


START OF PROGR 
-SBTTL START OF PROGRAM 


START: 
; CLEAR or FOR TEST EXECUTION 
RESET s INITIALIZE THE SYSTEM 


-SBTTL. INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS ($CMTAG) FIR 
MOV #$CMTAG ,R6 s FIRST LOCATION’ TO BE CLEARED 
CLR (R6) + ;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? © 
BNE -~6 3;LOOP BACK IF NO 
MOV HSTACK, SP 3zSETUP THE STACK POINTER 
:s INITIALIZE A FEW VECTORS 
MOV ASSCOPE ,a#IOTVEC a Oe VECTOR FOR SCOPE ROUTINE 
#340,aM10TVEC+2 ;:LEVE 
#SERROR , ANEMTVEC iem VECTOR FOR ERROR ROUTINE 
#340,aWEMTVEC+2 ;:LEVEL 7 
#STRAP , AA TRAPVEC 1 TRAP VECTOR FOR TRAP CALLS 
#340, aATRAPVEC+2;LEVEL 7 
#SPWRDN, @APWRVEC ; ;POWER FAILURE VECTOR 
#340, a#PWRVEC+2 ie LEVEL 7 
SENDCT ,SEOPCT ; SETUP END-OF-PROGRAM COUNTER 
IMES >: INITIALIZE NUMBER OF ITERATIONS 
3-CLEAR THE ESCAPE ON ERROR ADDRESS 
;sALLOW ONE ERROR PER TEST 
2 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV LPERR ;SETUP THE ERROR LOOP ADDRESS 
33SIZE FOR A HARD WARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
sEQUAL TO A’ ae snot FOR A SOFTWARE SWITCH REGISTER. 
MOV RRVEC,-(SP) ;;SAVE CTOR 
rit @WERRVEC 3: SET 
#DSWR, SWR 3;SETUP FOR A HARDWARE SWICH REGISTER 
MDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#-1 ,ASWR :zTRY TO REFERENCE HARDWARE SWR 
66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
2 ¢AND THE HARDWARE SWR IS NOT = ~1 
65$ BRANCH IF NO TIMEOUT 
#65$, (SP) 7:SET UP FOR TRAP RETURN 


ASWREG , SWR ::POINT TO SOFTWARE SWR 
#DISPREG, DISPLAY 
(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


$PASS CLEAR PASS COUNT 
MAPTSIZE,SENVM ZITEST USER SIZE UNDER APT 
67$ 7YES,USE NON-APT SWITCH 
ASSWREG , SWR TINO,USE APT SWITCH REGISTER 


#PR3,-(SP) 3;PUT NEW PS ON STACK 
#68$ ,-(SP) 3:PUT NEW PC ON STACK 
3;;POP NEW PC AND PS 


SEQ 0048 


rrornrnvrenrnnny 
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CZRMKB.P11 


000403 
112737 
000432 


005737 
001003 
105737 
001451 


132737 


177777 
021666 
003204 
000042 
001242 
001154 


000001 


000042 
001242 


000200 


031607 


MACY11 


000042 


000001 
000176 


001150 


001243 


000010 


, Kk 4 
30A(1052) 18-AUG-78 12:59 PAGE 49 
TYPE PROGRAM NAME 


-SBTTL TYPE PROGRAM NAME 
:; TYPE THE NAME OF THE PROGRAM IF SIRT PASS 
ae #-1 T TIME? 


£98 
CMP #SENDAD ,a#42 
69$ H IF YES 

YPE ASCIZ STRING 


TYPE .70$ 
sr VALUE HAs SOF TWARE suitcH REGISTER 


73ARE WE RUNNING UNDER XXDP/ACT? 
71$ 7 BRANCH IF YES 
phe + sARE WE 4 ry UNDER APT? 


;BRANCH IF YES 
SWR ,ASWREG «SOF TWARE SWITCH REG SELECTED? 
72$ : BRANCH IF NO 
:;GET SOFT-SWR SETTINGS 
BR 72$ 
71$: #1,$AUTOB 32SET AUTO-MODE INDICATOR 


72$: 
BR 69$ ;GET OVER THE ASCIZ 
ao -ASCIZ <CRLF>@CZRMKBO, Pi03/RMOD DISKLESS DIAGNOSTIC PART II @<CRLF> 


FIND OUT IF PROGRAM IS RUNNING IN STANDALONE MODE 

TST 42 31S LOC 42 ZERO ?? 

BNE 10$ ;NO - NOT IN STANDALONE 

TSTB SENV 31S APT ENVIRONMENT ZERO ?? 
108 BEQ STANDALONE YES - PROGRAM IN STANDALONE 


;PROGRAM NOT RUNNING _IN STANDALONE - SEE IF yh IS ALLOWED 
SIZ: ITB > tama sSIZING ALLOWED ? 


:NO 
: #377, $DEVM 2 YES - SET DEVICE MAP FOR ALL DEVICES 
$DEVM ;CLEAR THE BIT MAP 
R1 SSTART FROM THE DRIVE 0 
#BITO,R4 7BIT MAP DOR DRIVE 0 
$BASE ,RO BASE ADDRESS 
#CLR,RMCS2(RO) ;LOAD THE DRIVE ADDRESS 
R1,RMCS2(RO) ;LOAD THE DRIVE ADDRESS 
RMCS2(RO) ,R3 er? 
#NED ,R3 


RMCS1(RO) ,R3 
#DVA,R3 
BRANCH IF DRIVE NOT AVAILABLE 


16$ 
R4,$DEVM ;SET THE BIT MAP FOR ALL AVAILABLE DRIVE 
17$ ;DONT TYPE THE NONE EXIST MESG 


-NOTEX TYPE NOT EXIT MESSAGE 
R1,-(SP) DRIVE NUMBER 


6 

0 

Ri ; INCREMENT THE DRIVE ADDRESS 

R4 SET UP THE BIT MAP FOR NEXT DRIVE 


SEQ 0049 
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CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 eee 18-AUG-78 12: :59 PAGE 50 SEQ 0050 CZRI 
CZRMKB.P11 14-AUG-78 15:53 T VALUE FOR SOFTWARE SWITCH REGISTER . CZRI 


003414 022701 000007 CMP #7,R1 sALL DRIVE ARE CHECKED ? 2k 
003420 103344 BHIS 15$ ;BRANCH IF NOT 2k 
003422 208: 2t 


:GO TO oe START CODE 2 
003422 000137 004254 CMNSTART 2 


2 


NIMINININQMININININININININY 
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003426 STANDALONE : 


003426 004737 026670 JSR PC ,$TKIN 
:SEE IF THIS IS THE FIRST START AFTER stint 21 WAS LOADED 
000001 DEC #1 FIRST START ? 


BPL 10$ YES !! 


amo 
NN 
22 


a4 


: THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 
031116 5$: TYPE -CNSLOO MAINTAIN PREVIOUS PARAMETERS?? 
DCHR GET RESPONSE 
(SP)+,$TMP1 ECHO RESPONSE 
$TMP1 


000131 a UANY :YES RESPONSE ?? 
READY ;KEEP PREVIOUS PARAMETERS 
‘NO RESPONSE ?? 


000116 : STMP1 ,#'N 
20$ [GET NEW PARAMETERS 
030761 ~— :NOT YES OR NO, TYPE °'?"" 


: OPERATOR WANTS HELP FILE 
030763 T -HELPQST ;WANT HELP ?? 
HR GET RESPONSE 
yA el SAVE AND ECHO RESPONSE 


TMP 
000131 - oAtY WAS IT A YES RESPONSE ?? 


BN ;NO = DONT TYPE HELP 
054116 20s eHELP YES - TYPE HELP TEXT 


:SEE IF = WANTS TO CHANGE RMO3 UNIBUS ADDRESS 
031017 , UBUSQST WANT TO CHANGE ADDRESS ?? 
HR GET RESPONSE 
001176 (SP)+,$TMP1 SAVE AND ECHO RESPONSE 
001176 -STMP1 


;READ S CR 
(SP) + i CLEAR THE STACK 
001176 000131 =" AY oa Fb A YES RESPONSE ?? 


30$: 


atrteees | a. CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR 
031155 YPE -CNSLO1 :TYPE CURRENT BUS supe in 
001276 $BASE ,- (SP) 7:SAVE SBASE FOR TYPEOU 
::GO TYPE--OCTAL ASCII CALL DIGITS) 
030752 ,CLSPRN 


:GET NEW BUS ADDRESS 
001176 MOV (SP)+,$TMP1 ; CARRIAGE RETURN?? 
5 “YES-SKIP TO NEXT ENTRY 
160000 001176 #160000, STMPT :BASE ADDRESS IN 1/0 PAGE?? 
031202 CNSLO2 : TYPE WARNING MESSAGE 
BR 30$ 


000756 RETR 
013737 001176 001276 : $TMP1, $BASE ‘STORE NEW BUS ADDRESS 


PRONINININNNA NANNY NNAANANNYNNANRNRNRNLRVNRALNRARANALRYERER 
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113737 001176 50$: SVECT1,$TMP1 TYPE CURRENT VECTOR ADDRESS 
001177 C STMP1+., 


. CNSLO3 

STMP1 ,=(SP) co $TMP1 FOR TYPEOUT 
as pieitee ASCII 

3 SITYPE 3 DIGIT(S) 

0 3; SUPPRESS LEADING ZEROS 

-CLSPRN 


GET NEW VECTOR ADDRESS 
(SP)+,$TMP1 CARRIAGE RETURN? 
70$ :YES-SKIP TO NEXT ENTRY 
001176 4 a settle iVESIGn ADDRESS < 10007? 


CNSLO4 TYPE WARNING MESSAGE 
50$ T 


BR RETRY 
001272 : STMP1,$VECT1 STORE NEW VECTOR ADDRESS 
001176 : presse -$TMP1 ;TYPE CURRENT PRIORITY 


05 
$IMPT, -(SP) :sSAVE $TMP1 FOR TYPEOUT 
32:GO_ TYPE--OCTAL ASCII 
1 sTYPE 1 DIGIT(S) 
3 SUPPRESS LEADING ZEROS 


GET NEW PRIORITY | 


. 0 
030752 -CLSPRN 
001176 MOV (SP)+,$TMP1 CARRIAGE RETURN?? 
9 :YES-SKIP TO — ENTRY 
001176 —" A7 teen PRIORIT 


8 
031423 CNSLO6 Tv WARNING MESSAGE 


70$ 


$TMP1 
STMP1 
STMP1 
$TMP1 


STMP1 
STMP1 ,SVECT1+1 


ETR 
STORE NEW PRIORITY 


90$: 
niutumees 4 ro INPUT DEVICE NUMBERS 
$DEVM ;CLEAR DEVICE MAP 


-CNSLO7 TYPE INPUT INSTRUCTIONS 

;PROMPT TYPE PROMPTING CHARACTER 
GET RESPONSE 

tee ECHO RESPONSE 


Ld 


TMP 
000101 MP STMP1,#'A TEST ALL DRIVES?? 
110$ :NO 


000137 XS1Z 7TO SIZE ALL POWER UP DRIVES 
012737 001300 #377, SDEVM TEST ALL DEVICES 


SSSSSSSSSSSSSSSH4S4RHHSSessSBVBVVVSVVBVBBBBSVVRVBBRBRRVRRRRBB®R 
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BR 140$ SKIP TO NEXT ENTRY 
030755 100$: »PROMP ~ ; TYPE PROMPTING CHARACTER 
R GET RESPONSE 
001176 (SP)+,$TMP1 ;ECHO RESPONSE 
001176 -STMP1 
001176 000015 Ht ACR ; CARRIAGE RETURN?? 


0 

001176 000060 : STMP1 ,#'O NUMBER < 0?? 
120$ sVES: : 

001176 000067 $STMP1,4#'7 ; 
130$ 


LE Yi 
030761 : ,QSTMRK TYPE ‘'?"' 
100$ sRETRY 
001176 : i ;R1=DRIVE NUMBER 
ATNTBL(R1),R2 ;DECODE DEVICE NUMBER 
R2 ;CLEAR UNUSED BITS 
0 2,$DEVM ;SET DEVICE # IN MAP 
000377 001300 ;DONE ?? 
101334 100$ NO 


° 
° 
. 
2 
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CMNSTART: 
;ASSEMBLE TEST QUE og DEVICE MAP 
001300 MOV $ ;R 


DE ; EVICE MAP 
001460 PTSTQUE+2, R1 ;R1 = ADDRESS OF FIRST ENTRY IN QUE 
001456 R1,TSTQUE ; INITIALIZE ENTRY POINTER 
000001 #1 Re ;R2 = DEVICE POINTER 
R3 :R3 = DEVICE NUMBER 
R2,RO nS THIS DEVICE IN MAP ?? 


20$ 

R3,(R1) YES = ENTER DEVICE NUMBER IN QUE 
031734 000001 ATNTBL (R3),1(R1): sENTER ATTENTION BIT IN QUE 
000002 #2,R1 TER 


; DONE ALL DEVICES ? 


;YES 
ZADVANCE DEVICE NUMBER 
BR ENTER NEXT DEVICE 
25$: [TERMINATE TEST QUE 


;SIZE FOR CLOCK 
022510 JSR PC,SIZCLK ;SEE IF CLOCK PRESENT 
BR 40$ sYES - CLOCK IS PRESENT 
30$: ERROR 3NO CLOCK 
HALT 
BR 30$ 
40$: 


-SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
000042 TST ar42 ;ARE WE RUNNING UNDER XXDP/ACT? 
64$ :7BRANCH IF YES 
001242 000001 SENV,A1 ARE WE RUNNING UNDER APT? 
64$ BRANCH IF YES 
001154 000176 + teat 33 SOF TWARE SWITCH REG SELECTED? 


CH IF NO 
::GET SOFT-SWR SETTINGS 
000403 BR 65$ 
112737 000001 001150 : #1,$AUTOB 33SET AUTO-MODE INDICATOR 
012737 000140 000032 MO #PR3,QMEMTVEC+2 ;DROP PRIORITY DURING ERROR TYPEOUT 
000240 SREADY TO START TEST 


004737 026670 a PC, $TKIN S INITIALIZE TTY 
117737 175030 001234 aTsTQue, SUNIT ‘LOAD UNIT NUMBER 





D 5 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG=78 12:59 PAGE 55 
CZRMKB.P11 14-AUG-78 15:53 REGISTER AND STORAGE USAGE 


.SBTTL REGISTER AND STORAGE USAGE 
REGISTER ASSIGNMENTS 


SEQ 0055 





: 
; 
7 
. 
7 
3 
7 
" 
7 
7 
7 
7 
7 
, 
3 
‘ 
, 
‘ 
7 
7 


CZRMKBO RMO3/2 DSKLS PRT 2 
CZRMKB.P11 14-AUG=78 15:53 


. ? 
MACY11 30A(1052) 18-AUG=78 12:59 PAGE 56 
REGISTER AND STORAGE USAGE 


UNIBUS ADDRESS OF RH CONTROLLER 

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
UNIT UNDER TEST 

WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 
SAVED BY SUBROUTINES 

GENERAL WORKING REGISTERS, ARE NOT SAVED BY 
SUBROUTINES 

STACK POINTER 

LINKAGE REGISTER TO SUBROUTINES 


STORAGE ASSIGNMENTS 


= $TMPO-$TMP4 
‘ $GDDAT , $BDDAT 
;$GDADR,$BDADR 


TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES 
EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 


ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 


ALSO THE ADDRESS. OF A REGISTER ERROR 


TEST NUMBER 

NUMBER OF DEVICE er; TESTED 

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
een “hata AND IS USED WHEN READING STATUS AND 
THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR 
EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE 
WRITTEN IN REGISTERS 


SEQ 0056 


oO 
N 
wD 


tAaiw 


3 
- 
3 
3 
a 
3 
a 
3 
3 
3 
3 
Z 
3 
3 
q 
2 
i 
3 
3 
i 
3 
3 
3 
7 
3 
F 
3 
F 
3 
3 
3 
7 
i 
i 
3 
r 
3 
7 
| 
7 
4 
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000004 
012737 


012702 


012760 
111160 


016037 


000500 


010003 
0203 


111160 
016037 


000001 


000024 


000000 
000040 
000010 


000010 
010000 


001140 


000010 


010000 


000040 
000010 


000010 


000010 


MACY11 30A(1052) 
T1 T 


001226 


001120 
001131 
001122 
001124 


000010 


001142 
001142 


001140 
001140 
001136 


000010 
000010 


001140 
001140 


001136 


18-AUG-78 
RANSFER TEST 


SL RARER KEE REE REEKKEKEK 


s*TEST 1 


TRANSFER TEST 


.. 
12:59 PAGE 57 


WIKRE KKK KEK KEKE KKKKKKK 


CDI III III III IIIS ISO ORIIOTISIIINS INI S INS INS NII 


TST1: 


10$: 
;CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 
MOV 


#1,$TESTN 


#20. ,S1CNT 
#1,$ERMAX 
#T1,$LPADR 
#T1,$LPERR 


ASTACK, SP 
$BASE ,RO 
2 gla 


o 


ACLR,RMCS2(RO 
(R1) ,RMCS2(RO 


RMCS2(RO) , $BD 
— 


2 

(R1) , SGDDAT 
#*CUNTMSK, — 
#IR,$GDDAT 

RO, $BDADR 
aRMCS2, . S8BDADR 


60$ 


20$: 


30$: 
sWRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 


sREAD THE REGISTER . INDE 
;DOES NOT SET ‘NED'' ERR 
MOV 0, 


R2,R3 

(R35), R4 
A#NED, RMCS2(R 
70$ 


ACLR,RMCS2(RO 
(R1) ,RMCS2(RO 


RMCS2(RO) , $BD 
#NED , SBDDAT 
30$ 


(R1) ,$GDD 
HCUNTISK, *$GD 
MIR, senna" 
RO, $BDADR 
ARAACS2, SBDADR 


60$ 


;DOES NOT SET ‘NED’ ERROR 


33SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
;ONE ERROR ALLOWED 


;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


THE STACK POINTER 
UNIBUS ADDRESS OF UUT 
POINTER TO DEVICE 
REGISTER INDEX 


) ;CLEAR THE MASSBUS 
) SELECT UNIT 
DAT STORE RMCS2 AT $BDDAT 


DAT 


X IS IN R2 AND EXIT TEST IF THE READ 
;R3 = REGISTER ADDRESS 


;READ REGISTER 
0) 31S "NED'* SET?? 
-NO! ! 


) =CLEAR THE MASSBUS 
) SELECT UNIT 


DAT STORE RMCS2 AT $BDDAT 


DAT 


SEQ 0057 


ama 
NN 
DD 


LAA 


atl abt off of4 oft ott off mbt odd abt ott of wd ot ot adi ai LAl ali 2) LALA Al al CAl Lal Lal Cal CA Lal Lal Cal LA LCA A La LA Aa 


att 284 88 off ott 


ai awahi oft 


ait 200! aft ail 
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012713 000000 MOV #0, (R3) ;WRITE REGISTER 
032760 010000 000010 BIT #NED, RMCS2 (RO) 31S 'NED'' SET?? 
001432 BEQ 70$ sNO!! 


oO 
Ns 
P.*) 


40$: 
COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING ‘NED‘' ERROR - 

TADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 

SAVAILABLE DEVICE REGISTER 
000002 ADD #2,R2 ADVANCE TO ae REGISTER 
000002 #RMWC -R2 31S THIS RMWC?? 

O$ ; - TRY a REGISTER 

000004 HIS RMBA?? 


gis fi 
40$ ; - TRY — REGISTER 
000010 31S THIS RMCS5?? 
40$ ; - TRY oir REGISTER 
000016 31S THIS RMAS ? 
40$ : TRY ANOTHER REGISTER 
000022 31S THIS RMDB?? 
40$ ; TRY ANOTHER REGISTER 
000046 31S THIS A LEGAL REGISTER 
103251 0$ ; TRY THIS REGISTER 


50$: 


;GOT a pee DEVICE’ ERROR FOR EVERY REMOTE REGISTER ADDRESS 
013737 001276 001136 $BASE, $SBDADR STORE BASE ADDRESS 
104002 2 ;DEMAND OR TRANSFER FAILED 
000137 021442 : ;GO SELECT NEXT DEVICE 


= RR I EK KKK KEK RK KEK EK EEK EKER EEK EKEEKKEKKKKEK 


SRTEST 2 CTOD TEST 


MRR Rae RRR Rte Balak hehe d hele Re hehehe lehahehahehehelelelalehehehelelelehehaheleleieieleleielelelelelelieielelelelel 
TST: 
000002 001226 #2,$TESIN 3zSET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. vo ey 320 ITERATIONS 
#1, SERMA ;ONE ERROR ALLOWED 
MO aT2, SLPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T2.$LPERR LOAD LOOP ON ERROR ADDRESS 


ASTACK, SP = LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000010 re RMC $2 (RO? ;CLEAR THE MASSBUS 
111160 000010 OVB (R1) ,RMCS2(RO) ;SELECT UNIT 
WRITE ONES IN REMOTE RREGISTERS 


005074 012760 000076 000000 MILF 76,RMCS1(RO) ;LOAD RMCS1 
005102 012760 177777 000006 #-1,RMDA(RO) ;LOAD RMDA 
005110 012760 001777 000034 ACYLMSK ,RMDC (RO) ;LOAD RMDC 


Al Cat ad Cal Cal Calt ad CA Cad Cal Cal CAI Cal Cal Cal CA Cal CA CA CA Ct A CA A A Ca Ca (A Ca AWA A A A AV WA GA GV A AVG AA AWWA WW WIAA 
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005116 


005124 
005130 


005130 
005136 


005314 
005322 
005330 


005336 
005344 


012760 
012702 


016037 
016037 
016037 
016037 


012737 


111160 


012760 
012760 
012760 


012760 
111160 


016200 
000001 


000000 
000006 
000034 
090032 


177701 
001334 
176000 
161577 


000003 


000076 
177777 
177777 


000040 
000010 


MACY11 30A(1052) 
12 c 


000032 


001326 
001334 
001362 
001360 


001326 


001362 
001360 


001226 


001120 


001124 


000010 


000000 
000014 
000042 
000010 


H 5 
18-AUG-78 12:59 PAGE 
TOD TEST 


MFMTIO!ECI!HCI!OFD,RMOF (RO) 


MOV 
;READ REMOTE REGISTERS TWICE 
MOV #1,R2 
10$: 
RMCS1(RO),RMCS1I 
RMDA(RO) ,RMDAI 
RMDC (RO) ,RMDCI 
RMOF (RO) , RMOF I 
R2 
10$ 
BITS CAME BACK 
A*CILF76,RMCS1I ; 
20$ 
RMDAI 
20$ 
#XNUDC ,RMDCI 
20$ 
oo RMOF I 


59 


;LOAD RMOF 


STORE RMCS1 IN INPUT BUFFER 


;STORE RMDA IN INPUT BUFFER 
STORE RMDC IN INPUT BUFFER 
;STORE RMOF IN INPUT BUFFER 


;1$ RMCS1 07? 
nS RMDA 0?? 
ns RMDC 0?? 
18 RMOF 0 ?? 


BNE $ 
; CANNOT as BITS FROM nénoré REGISTERS 


20$: 


TOD MUST BE STUCK 


FE IIIT SII SAI I IIA TA IAN 


s*TEST 3 


MASSBUS INITIALIZE TEST 


KEKE EERE KKK ERE KEKKKEKKKEKKKKEEKEKEKEEKEK 


TST3: 
#3,$TESIN 3 


#20. ,$1CNT 
1,$ERMA 


$ERMAX 
#73, $LPADR 
#73.$LPERR 


ASTACK , SP 

SBASE ,RO 

TSTQUE ,R1 
#CLR,RMCS2(RO) 
RO) 


MOVB (R1) ,RMCS2 ( 
;WRITE ONES IN SELECTED REGISTERS 


MOV AMILF76,RMCS1(RO) 
MOV #-1 ,RMER1(RO) 
#~1 ee 


MOV 
:USING CONTROLLER CLEAR, BIT 5 
MOV RO) 


ACLR, AMES? CR 
MOVB (R1) ,RMCS2(RO) 
;READ THE REGISTERS THAT WERE WRI 


;SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
;ONE ERROR ALLOWED 


;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 

;RO = UNIBUS ADDRESS OF UUT 

:R1 = POINTER TO DEVICE 
MASSBUS 


;LOAD RMCS1 


;LOAD RMER1 


;LOAD RMER2 

OF RMCS2, INITIALIZE THE MASSBUS 
:CLEAR THE MASSBUS 

>SELECT UNIT 

TTEN 


SEQ 0059 


3: 
3: 
3: 
3. 
3: 
3. 
3: 
3. 
3. 
3. 
3. 
bs 
3. 
3 
3 
3 
3. 
3. 
3. 
3. 
3 
3. 
3 
3. 
3 
3 
3 
3 
3. 
3. 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 





ao 
Ns 
2 
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ao 
™N 
2D 


016037 000000 001326 RMCS1(RO) ,RMCS11 ;STORE RMCS1 IN INPUT BUFFER 
016037 000014 001342 RMER1 (RO) ,RMER1I STORE RMER1 IN INPUT BUFFER 


016037 000042 001370 MOV RMER2 (RO) ,RMER2ZI :STORE RMER2 IN INPUT BUFFER 
: : REGISTER BITS WERE CLEARED 
052737 177701 001326 BIS #°CILF76,RMCS11 :SET ANY BIT NOT WRITTEN 
001567 001370 AXNUER2 ,RMER2Z1 
177777 001326 rl, RMCS11 esis ZANY ZEROS IN RMCS1?? 
177777 001342 #1 RMER1| Sia ZANY ZEROS IN RMERI?? 
177777 601370 #1 .RMER2I —""" SANY ZEROS IN RMER2?? 


BNE 
NONE OF THE BITS WERE CLEARED 
108 ERROR 4 


;MASSBUS INIT FAILED 


SD IIT ITI RT RRR IRR RE RIKER ERE RR ERR 


T*TEST 4 CLEAR STUCK ACTIVE TEST 


J LEE EERE EKER ERE EEE REE EERE EERE EKER EEE EEE EKER ERR EEE 


000004 TST4: 
012737 000004 001226 #4 ,STESTIN 73SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 
001131 #1, SERMAX ;ONE ERROR ALLOWED 
001122 #T4,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T4,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK , SP ;LOAD THE STACK POINTER 
;RO = UNIBUS ADDRESS OF 
UE, :R1_ = POINTER TO DEVICE 
000010 . ;CLEAR THE MASSBUS 
111160 MOVB SELECT UNIT 
;WRITE ONES IN TEST REGISTERS 


012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD RMER1 
012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD RMER2 


012760 000001 000024 MOV A#DMD,RMMR1(RO) ;LOAD RMMR1 
;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 


016037 000014 001342 RMER1 (RO) ,RMER11 STORE RMER1 IN INPUT BUFFER 
016037 000042 001370 RMER2 (RO) ,RMER21 STORE RMER2 IN INPUT BUFFER 


016037 000024 001352 RMMR1 (RO) ,RMMR1 I Pt hi a “ps i IN INPUT BUFFER 
042737 040000 001342 #UNS ,RMER11 ;DONT ACCEPT UNSAFE 

001011 10$ ;BRANCH IF ANY OTHER BITS ON 

042737 040200 001370 ASKI!DVC,RMER2I ;DONT ACCEPT SKI OR DVC 

001005 BRANCH IF ANY ye BITS ON 

032737 000001 001352 ADMD ,RMMR1 I ;BRANCH IF DMD IS ON 


WWWAWAWWWWWWWWAWWWWWWAWWWWWWWAWWWWWWWWWWwnWWnWWWAwW www 
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001001 BNE 10$ 
104026 108 ERROR 26 3MBA CLR IS STUCK ACTIVE 


oO 
Ns 
2 


MOR AAASAASAASES AR SESSESESLAE RE SE SESSA SERS E RSS RRA RRR RR RAR RARE SESS 


TeTEST 5 TRISTATE TRANSFER TEST 


LEAR REE EERE ERE EERE 
TST5: 
000005 001226 #S5,$TESTN 32:SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20.,$I1CNT 720 ITERATIONS 

000001 #1, SERMAX “ONE ERROR ALLOWED 
005670 #T5,$LPADR ;LOAD LOOP ON TEST ADDRESS 
005670 001124 #T5.$LPERR :LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK , SP ;LOAD THE STACK POINTER 
001276 $BASE ,RO RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
R2 ;CLEAR ERROR FLAGS 
000040 000010 ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 — MOVB (R1),RMCS2(RO) ;SELECT UNIT 
WRITE ONES IN SELECTED REGISTERS 


012760 000076 000000 MILF 76,RMCS1(RO) LOAD RMCS1 
012760 177777 000006 #-1 ,RMDA(RO) LOAD RMDA 


WAWUWWWWWW WWW WWWWWWWWWunwuw 


012760 177777 000014 #-1,RMER1(RO) ;LOAD RMER1 


012760 177777 000032 4-1 ,RMOF (RO) ;LOAD RMOF 


012760 177777 000042 #-1,RMER2(RO) _;LOAD RMER2 
SELECTED REGISTERS 


012760 000000 000000 #0,RMCS1(RO) ;LOAD 
012760 000000 000006 #0,RMDA(RO) :LOAD 
012760 000000 000014 #0 ,RMER1 (RO) ;LOAD 
012760 000000 000032 #0 ,RMOF (RO) ;LOAD 
012760 000000 000034 #0 ,RMDC (RO) 3 LOAD 


012760 000000 000042 MOV #0 ,RMER2 (RO) LOAD RMER2 
READ BACK ALL REGISTERS 


016037 000000 001326 RMCS1(RO) .RMCS1I ;STORE RMCS1 IN INPUT BUFFER 
016037 000006 001334 RMDA(RO) RMDAI ;STORE RMDA IN INPUT BUFFER 
016037 000014 001342 RMER1 (RO) -RMER1 I ;STORE RMER1 IN INPUT BUFFER 
016037 000032 001360 RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 





K 5 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12:59 PAGE 62 SEQ 0062 
CZRMKB.P11 14-AUG-78 15:53 T5 TRISTATE TRANSFER TEST 


006052 016037 000034 001362 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 


016037 000042 001370 MOV RMER2 (RO) ,RMER2I ;STORE RMER2 of INPUT BUFFER 
CHECK EACH REGISTER CONTENT FOR ZERO BITS ORITIEN & READ 
012702 177777 MOV #-1,R2 ;ACCUMULATE ZEROS IN R2 
001326 PCILEZ6, RMCS1I ;SET ALL BITS NOT WRITTEN 
XNUOF , RMOF I 


COMPLEMENT REGISTER CONTENTS 


sACCUMULATE ALL ZERO BITS 


BEQ 10$ ;BRANCH IF EACH BIT IS ZERO 

MORE BIT POSITIONS ARE NOT ZERO 
001142 MOV R2,$BDDAT SAVE RESULT Pas TYPE 
001140 CLR $GDDAT ;LOAD EXPECTED RESUL 

ERROR 5 TRISTATE BUS IS STUCK AT ONE 
000001 BIS #BITO,R2 ;SET ERROR FLAG 


000040 000010 MOV A#CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
;PRESET SELECTED REGISTERS TO ZEROS 
3 (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT) 
000000 000006 MOV #0..RMDA(RO) ;LOAD RMDA 
012760 000000 000032 MOV #0 ,RMOF (RO) ;LOAD RMOF 


012760 000000 000034 MOV #0 ,RMDC (RO) ;LOAD RMDC 
;WRITE ONES IN SELECTED REGISTERS 


012760 000076 000000 MILF76,RMCS1(RO) ;LOAD RMCS1 
012760 177777 000006 #-1 ,RMDA(RO) LOAD RMDA 
012760 916200 000032 #*CXNUOF ,RMOF (RO) ;LOAD RMOF 
012760 001777 000034 #*CXNUDC ,RMDC (RO) ;LOAD RMDC 
012760 177777 000014 #-1,RMER1(RO) ;LOAD RMER1 


012760 176210 000042 MOV #*CXNUER2 ,RMER2 (RO) ;LOAD RMER2 
READ ALL REGISTERS 


016037 000000 001326 MOV RMCS1(RO) ,RMCS11 STORE RMCS1 IN INPUT BUFFER 
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2858 
006330 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 


016037 000032 001360 RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 
016037 000034 001362 RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
016037 000014 RMER1 (RO) ,RMER1I STORE RMER1 IN INPUT BUFFER 


016037 000042 MOV RMER2(RO) ,RMER21 : STORE MER? IN. INPUT BUFFER 
: REGISTER CONTENT FOR ONE BITS WRITTEN & R 
177701 BIC #°CILF76, 6 -RMCS1 7CLEAR ALL Bits wor WRITTEN 
#XNUDC ROC! 
AXNUER2 , RMER21 
R2 sACCUMULATE ONES IN R2 
;ACCUMULATE ALL ONE BITS 


177777 2 ;SEE IF EACH BIT POSITION WAS ONE 
BEQ 20$ BRANCH IF NONE STUCK 
MORE BIT ig Mery ARE NOT ONE 
010237 001142 MOV R2,$BDDAT SAVE RESULT FOR TYPE 
Sacane 177777 +~=001140 MOV #-1 ,SGDDAT EXPECTED RESULT 


6 
052702 000002 #BIT1,R2 SET ERROR FLAG 


ZANY ERRORS DETECTED ?? 
0 “YES = DONT DO BIT TEST 
012702 000001 co ‘R2=BIT POSITION 
012760 000040 000010 ; WLR, RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB  (R1).RMCS2(RO) :SELECT UNIT 
:WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 
010260 000006 R2,RMDA(RO) ZLOAD RMDA 
010260 000032 R2, RMOF (RO) :LOAD RMOF 
010260 000034 R2,RMDC (RO) ;LOAD RMDC 
010260 000014 R2,RMER1(RO)  ; LOAD RMER1 


010260 000042 MOV R2,RMER2 (RO) ;LOAD RMER2 
;READ BACK THE REGISTERS 


016037 000006 001334 MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
016037 000032 001360 MOV RMOF (RO),RMOFI ;STORE RMOF IN INPUT BUFFER 
016037 000034 001362 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 


WWWWIWWWIWWWWWWWWWAWWWWWWWWWW WWW AWWW WWW WWW AWAnnnt 
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000014 001342 MOV RMER1 (RO) ,RMER11 ;STORE RMER1 IN INPUT BUFFER 


000042 001370 MOV RMER2 (RO) ,RMER2Z1 STORE RMER2 IN INPUT BUFFER 
:CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
CLR R3 ;R3=ACCUMULATED ONE BIT 
177777 #-1,R4 *R4=ACCUMULATED ZERO BITS 
001334 “e| GET ANY GOOD BITS FROM RMDA 


oO 
MN 
Q 


001360 ;GET GOOD BITS FROM RMOF 
161577 
161577 yy 
001362 RMD ;GET GOOD BITS FROM RMDC 
176000 
176000 
R5 .R4 
001342 GET GOOD BITS FROM RMER1 
R5,R3 


R5,R4& 
001370 :GET GOOD BITS FROM RMER2 
ER2.R 


001567 


001567 


;RESET ALL ONES IN R3 EXCEPT 
FOR THE TEST BIT 


RESET TEST BIT IN R4 
; COMBINE ACCUMULATED 1°S + O'S 
:1S PAT TERN OK?? 
26$ sVES!S 
001140 R2,$GDDAT 7 SAVE My PATTERN 


001142 MOV R3,$BDDAT SAVE RESULT 
7 ;BIT INTERFERENCE IN TRISTATE BUS 
30$ SKIP TO NEXT 


26$: 

z;ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 
ASL R2 sSHIFT THE BIT 
BEQ 30$ sEXIT IF DONE 
JMP 25$ 

30$: 


J ERR KEE ERE EERE ERE KEKE KEKE EEK EKER EEE EE EE 


:*TEST 6 REGISTER SELECT TEST 


FDRG IOIIOIOIOIOIIOIOIIOIIOIOIOIOIIOIOIOIOII I IOI TOTO TOTO TTT TTT AIS AI IAAI ISAS IN 
000004 TST6: SCOPE 
012737 000006 001226 MOV #6,$TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


WWWWWAWWWWWWW AWWW WWW 
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#20. ,S1CNT 320_ITERATIONS 

#1, SERMAX ONE ERROR ALLOWED 
#16,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#16,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


STACK , SP LOAD THE STACK POINTER 
SBASE ,RO #RO = UNIBUS ADDRESS OF UUT 
013701 MOV TSTQUE ,R1 R1 = POINTER TO DEVICE 
;THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
SEACH DEVICE REGISTER 


REGISTER REG SEL 
NAME (16,8,4,2,1) 


Té6: 


sEACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE, 
STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1. 

FOR S-A-O, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER 
;THAT HAS THE SAME SELECT VALUE, EXCEPT oe THE SELECT LINE 
BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE , 

;RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS SA-0, 
THE ALL_ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1 

;WILL NOT BE 0 WHEN READ BACK. 


005002 CLR R2 zR2= ZEROS SOURCE 
012703 177777 MOV #~1,R3 3R3= ONES SOURCE 
: TEST REG SEL 1 FOR S-A-O 

012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
010260 000074 MOV R2,RMER1 (RO) ;LOAD RMER1 
010260 000034 MOV R2,RMDC (RO) LOAD RMDC 
010360 000024 MOV R3,RMMR1 (RO) LOAD RMMR1 


010360 000036 MOV R3,RMHR (RO) LOAD RMHR 


seesessyy 
DWNAWULSWN—O 
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016037 000014 001342 


B 6 
MACY11 30A(1052) 18-AUG-78 12:59 PAGE 66 
T6 REGISTER SELECT TEST 


RMER1 (RO) ,RMER11 ;STORE RMER1 IN INPUT BUFFER 


016037 


012760 
111160 


010260 
010260 


010260 


010360 
010360 
010360 
016037 
016037 
016037 


012760 
111160 


010260 
010260 
010260 
010360 
010360 


000034 
001342 


176000 
001362 


000040 
000010 


000006 
000032 
000042 
000016 
000030 
000040 
000006 
000032 


000042 
001334 


161577 
001360 


001567 
001370 


000040 
000010 


000006 
000032 
000042 
000020 
000036 


001362 


001362 


000010 


001334 
001360 
001370 


001360 


001370 


000010 


10$: 

;TEST REG SEL 1 
MOV 
MOVB 


20$: 

;TEST REG SEL 2 
MOV 
MOVB 


apg Beet gmes 
Se 


IXNUDC, RMDCI 
DCI 


La 


10$ 
10 


FOR S-A-1 

(RID -AMES2 CRO) 
R2,RMDA(RO) 
R2,RMOF (RO) 
R2,RMER2 (RO) 
R3,RMAS (RO) 
R3,RMSN(RO) 
R3,RMMR2 (RO) 
RMDA(RO) ,RMDAI 


RMOF (RO) ,RMOF I 


Ld 


AXNUOF , RMOF I 
R3,RMOF I 


20$ 
AXNUER2 ,RMER2Z] 
RMER21 


FOR S-A-0 
#CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 
R2,RMDA(RO) 
R2,RMOF (RO) 
R2,RMER2 (RO) 
R3,RMLA(RO) 


R3,RMHR (RO) 


RMER2 (RO) ,RMER2 1 
3,RMDAI 


STORE RMDC IN INPUT BUFFER 


;REG SEL 1 IS S-A-0 


;CLEAR THE MASSBUS 
SELECT UNIT 


;LOAD RMDA 

LOAD RMOF 

;LOAD RMER2 

;LOAD RMAS 

;LOAD RMSN 

LOAD RMMR2 

STORE RMDA IN INPUT BUFFER 
;STORE RMOF IN INPUT BUFFER 
STORE RMER2 IN INPUT BUFFER 


REG SEL 1 IS S~A~1 


;CLEAR THE MASSBUS 
SSELECT UNIT 


;LOAD RMDA 
;LOAD RMOF 
;LOAD RMER2 
;LOAD RMLA 
;LOAD RMHR 


a tals otf abt oft oft ail all ali ail ale ail all altalt alt alLali al Lalit al Lali al Lalit alLAl i al Al Lalit al Wal 


abd off of id ofl wht 
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007324 
007330 


007546 


010360 
016037 
016037 
016037 


012760 
111160 


010260 
010260 
012760 
010360 
016037 
016037 


012760 
111160 


010260 
010260 
010260 
010360 
010360 


000046 
000906 
060032 


000042 
001334 


161577 
001360 


001567 
001370 


000040 
000010 


000014 
000034 
000076 
000030 
000014 
000034 
177701 
001342 


176000 
001362 


000040 
000010 


000014 
000032 
000034 
000026 
000042 


MACY11 30A(1052) 
16 


001334 
001360 
001370 


001360 


001370 


000010 


000000 


001342 
001362 
001342 


001362 


000010 


30$: 
;TEST REG SEL 2 
MOV 


40$: 

Zs TEST REG SEL 4 
MOV 
MOVB 
MOV 
MOV 
MOV 


18-AUG-78 
REGISTER SELECT TEST 


R3,RMEC2(RO) 
RMDA(RO) ,RMDAI 
RMOF (RO) ,RMOF I 


30$ 
AXNUER2 ,RMER2] 
RMER21 


FOR S-A~1 
#CLR,RMCS2(RO) 
(R1) ,RMCS2 (RO) 
R2,RMER1 (RO) 


R2,RMDC (RO) 


MILF 76,RMCS1 (RO) 


R3,RMSN(RO) 


RMER1 (RO) ,RMER11 


RMDC (RO) ,RMDCI 


#*CILF76,RMER1! 


R3,RMER11 

40$ 

AXNUDC ,RMDCI 
DC 


FOR S-A-0 
A#CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 
R2,RMER1 (RO) 
R2,RMOF (RO) 
R2,RMDC (RO) 
R3,RMDT (RO) 


R3,RMER2 (RO) 


C 6 
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RMER2 (RO) ,RMER21 
3,RMDAI 


30$ 
AXNUOF ,RMOF I 
R3,RMOF I 


SEQ 0067 


;LOAD RMEC2 
STORE RMDA IN INPUT BUFFER 
STORE RMOF IN INPUT BUFFER 


;STORE RMER2 IN INPUT BUFFER 


sREG SEL 2 IS S-A-0 


;CLEAR THE MASSBUS 
SELECT UNIT 


;LOAD RMER1 
;LOAD RMDC 


;LOAD RMCS1 


;LOAD RMSN 


;STORE RMER1 IN INPUT BUFFER 


;STORE RMDC IN INPUT BUFFER 


REG SEL 2 IS S-A-1 


;CLEAR_ THE MASSBUS 
;SELECT UNIT 


;LOAD RMER1 
;LOAD RMOF 
;LOAD RMDC 
;LOAD RMDT 
LOAD RMER2 





ane ont abt otf abt atl ofl oft ote atl abt oth abt atl all od all ald add alt of Lalt al Cait al CALA al CAA Lal Cal Cll CA Lal Cal Cal LA A A A A A (AI AIA 


atl of i ob 


abt oft 
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007750 
007754 
007760 
007764 


010360 
016037 
016037 
016037 


012760 
111160 


010260 
010260 
010360 
010360 
016037 
016037 


012760 
111160 


010260 
010260 
010360 
010360 
016037 


000044 
000014 
000032 


000034 
001342 


161577 
001360 


176000 
001362 


000040 
000010 


000006 
000042 
000012 
000032 
000006 


000042 
001334 


001567 
001370 


000040 
000010 


000014 
000006 
000034 
000042 
000014 
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001342 
001360 
001362 


001360 
001362 
50$: 


TEST REG SEL 4 
MOV 
MOVB 


000010 


001334 
001370 


001370 
60$: 


; TEST REG SEL 8 
MOV 
MOVB 


000010 


001342 


R3,RMEC1 (RO) 
RMER1 (RO) ,RMER1I 
RMOF (RO) ,RMOF I 


RMDC (RO) ,RMDCI 
Tiel 


$ 
#XNUOF ,RMOF I 
R3,RMOF I 
50$ 
AXNUDC ,RMDC I 
R3,RMDCI 


50$ 
14 


FOR S-A-1 
#CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 
R2,RMDA(RO) 
R2,RMER2 (RO) 
R3,RMDS (RO) 
R3,RMOF (RO) 
RMDA(RO) ,RMDAI 


RMER2 (RO) ,RMER21 
R3,RMDAI 


60$ 
AXNUER2 , RMER21 
ia 


6 
15 


FOR S-A-0 
#CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 
R2,RMER1(RO) 
R2,RMDA(RO) 
R3,RMDC (RO) 
R3,RMER2 (RO) 


RMER1 (RO) ,RMER11 


;LOAD RMEC1 

;STORE RMER1 IN INPUT BUFFER 
STORE RMOF IN INPUT BUFFER 
STORE RMDC IN INPUT BUFFER 


sREG SEL 4 IS S-A-0 


;CLEAR THE MASSBUS 
SELECT UNIT 


;LOAD RMDA 
;LOAD RMER2 
;LOAD RMDS 
LOAD RMOF 
STORE RMDA IN INPUT BUFFER 
STORE RMER2 IN INPUT BUFFER 


sREG SEL 4 IS S-A-1 


;CLEAR THE MASSBUS 
;SELECT UNIT 


;LOAD RMER1 
;LOAD RMDA 
;LOAD RMDC 
LOAD RMER2 
;STORE RMER1 IN INPUT BUFFER 





SEQ 0068 CZRI 
CZRI 


Ww 


(cal al Lal al CAD Cal Cal Cal Cal Cal Cal Cal Lal Cal Cal CA Lal Cal CA Cl A Ct A Ct (A A a A A A A A GW WW AIG WWW AAI AW AWAAA 


E 6 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12:59 PAGE 69 SEQ 0069 
CZRMKB.P11 14-AUG-78 15:53 T6 REGISTER SELECT TEST 


016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
001342 ct 


$ 
001334 R3,RMDAI 
70$ 


104016 16 ;REG SEL 8 IS S-A-0 
70$: 


012760 000040 o00010 7 eo! Fekoyet © fetta amcs2(RO) :CLEAR THE MASSBUS 
111160 000010 MOVB (RI) .RMCS2(RO) :SELECT UNIT 

010030 010260 000032 MOV —-R2.RMOF(RO) —«S LOAD. RMOF 

010034 010260 000034 MOV «2, RMDC(RO) ~—ss LOAD RMDC 

010040 010260 000042 MOV —«R2, RMER2(RO) —«; LOAD RMER2 

010044 010360 000012 MOV _—-R3,RMDS(RO) —«; LOAD RMDS 

010050 010360 009014 MOV _—~R3,RMER1(RO) —; LOAD RMER1 

010054 010360 000006 R3,RMDA(RO) «LOAD RMDA 

010060 016037 000032 001360 RMOF (RO),RMOrI ;STORE RMOF IN INPUT BUFFER 
016037 000034 001362 RMDC(RO) -RMDCI STORE RMDC IN INPUT BUFFER 


016037 000042 001370 RMER2 (RO) ,RMER2Z] STORE RMER2 IN INPUT BUFFER 
161577 001360 AXNUOF ,RMOF I 


80$ 
176000 001362 AXNUDC ,RMDCI 
001362 ~~ 


0$ 
001567 001370 AXNUER2 , RMER21 
001370 eens 


BNE 8 
104017 17 sREG SEL 8 IS S-A-1 
010144 80$: 


REGISTER SELECT 16 IS TESTED BY THE ILR TEST 


4 ASRS EERESSSESSSSLE SESE SESE SSSR SESE RRS E SARS SERRA SARA SSS SSDS SSD, 


S*TEST 7 DRIVE TYPE TEST 


FIGS IOIUIISISIOISISIOISISIOIOIOIDIDIOIDISITIOIO TOTO TIOI ITI TTR TOT TOT TOT RTT IAA IA SAS IMA. 
010144 000004 TST7: 
010146 012737 000007 001226 MO #7, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 


010154 000240 
001120 #20. ,SICNT 320 ITERATIONS 
#1, $ERMAX ;ONE ERROR ALLOWED 
#T7,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 001124 #T7,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 001100 ; #STACK,SP :LOAD THE STACK POINTER 


td abt att atl att abt ott otf ott abt atl abt at abt aft ot Cal Al ade af Cal al Cal Lal Cal Cal Cal t al Cal Cal CA Cal CANA Cal CA CA A A A CA Ct CA A A A A A A A A A AIA 
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010212 013700 001276 $BASE ,RO :RO = UNIBUS ADDRESS OF UUT | 3 
010216 073701 001456 TSTQUE ,R1 ‘R1 = POINTER TO DEVICE 3 
010222 016037 000026 001142 RMDT(RO),$BDDAT ;STORE RMDT AT $BDDAT 3 

020024 001142 ee ‘vEstte PORT RM03?? 3 
024024 001142 + alae , SBDDAT ‘vest! PORT RM03?? ; 
020025 001142 #SNGPRT !B110, ,$BDDAT —s-; SINGLE PROT RMO2 ? 3 
024025 001142 #DULPRT !BITO, $BDDAT 3 
10$ “BRANCH IF SO 3 

020024 oo 7a #SNGPRT, a ;LOAD ACCEPTABLE VALUES ; 
:LOAD BAD ADDRESS 3 


000026 001136 
7 ;DEVICE NOT AN RMO3 
021442 MP ;GO TO NEXT DEVICE 
010324 10$: 


8 RRR KER KKK EK EKK KEKE KKEEEKEKEKKKKK 


‘*TEST 10 DEVICE AVAILABLE TEST 


PR Dalal RRR Rall Ra la le halal ela le lela hahaRahahehelekehehelelaheleleleleleleleleheialelelelelaleleleleleleleleielaleleialel 


010324 000004 TST10: 
010326 012737 000010 001226 #10, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SI1CNT 320 ITERATIONS 
#1, $ERMAX [ONE ERROR ALLOWED 
#T10,$LPADR ;LOAD LOOP ON TEST ADDRESS 
010366 001124 #T10,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK , SP ;LOAD THE STACK POINTER 
001276 SBASE RO [RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000040 000010 #CLR,RMCS2(RO) CLEAR THE MASSBUS 

111160 000010 (R1),RMCS2(RO) SELECT UNIT ~ 


016037 000000 001142 MOV RMCS1(RO) , SBDDAT ; STORE rae a AT $BDDAT 
042737 173777 001142 #*CDVA,$BDDAT ;CLEAR ALL BUT DVA 

001006 10$ BRANCH IF DVA SET 

012737 004000 001140 #DVA,$GDDAT SETUP EXPECTED 

010037 001136 MOV RO, $BDADR ;SETUP REG ADDRESS 

104060 108 60 SDEVICE NOT AVAILABLE 


FAA ARERR EERE EERE ERR EERE ERE ERE EERE REE 


zeTEST 11 SEARCH TIMEOUT TEST 


WRERSRELSLALSESE£ SESS ESES ESSER RR SELES RRR RS ASS SARA SSSR SRSA REDS SSD 


1ST11: SCOPE 
000011 001226 MOV #11, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,$1CNT 320 ITERATIONS 
112737 000001 001131 MOVB #1,SERMAX ONE ERROR ALLOWED 


PHHRHRRALDHRDAPHHALDPRLHHARHARLHHRAEMHLPHHELAHHK LRP BPWAAAAAS 
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012737 010510 #T11,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 010510 = #T11,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
012706 ASTACK, SP LOAD THE STACK POINTER 
013700 yee: ;RO = UNIBUS ADDRESS OF UUT 

010520 013701 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 

LOAD REGISTER OUTPUT BUFFER WITH tana PARAME TERS 

010524 012737 000000 MOV oS och 7 SEC 

010532 #0 ,RMD 

010540 PATI 6, RMOF O ; IT FORMAT 

010546 ZSTARTING BUFFER ADDRESS 

010554 ;WORD COUNT 

010562 001402 #WD'GO.RMCS1O WRITE DATA COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
010570 023352 JSR PC,ENBSCH 
BR 10$ :GO TO 10$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
000462 BR 50$ ;SLOC REST PF TEST 


10$: 
START THE CLOCK AND WAIT FOR 100 MS 
012737 000144 001524 MOV #100. ,WATCH SET WATCHDOG TIMER VALUE 
170712 PC,aCLOCK START THE CLOCK 
001524 20$: WATCH 
c 
004777 170702 JS PC,a@STOP ;STOP THE CLOCK 
:VERIFY THAT OPI IS NOT SET (SEARCH TIMEOUT IS DISABLED) 


016037 000014 001142 RMER1 (RO) , SBDDAT ;STORE RMER1 AT $BDDAT 
001136 RO,$BDADR ;SET UP FOR ERROR MSG 
000014 001136 . ARMER1 , SBDADR 
157777 001142 #*COPI , $BDDAT 
30$ BRANCH IF NO ERROR 
0011406 CL $GDDAT 


104020 20 sOPI SET W/SEARCH TIMEOUT 
; DISABLED 
000430 BR 50$ SKIP 


SEARCH TIMEOUT, THEN WAIT 100 MS 


012760 041401 000024 ADMD ! MUR ! DBEN! MOC , RMMR1 (RO) ;LOAD RMMR1 
001524 #100. ,WATCH SET WATCHDOG TIMER VALUE 
PC, a@CLOCk START THE CLOCK 
001524 40$: WATCH 
010714 170610 JSR PC ,aSTOP ;STOP THE CLOCK 
OPI SHOULD BE SET (SEARCH TIMEOUT IS ENABLED) 


010720 000074 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
157777 001142 #*COPI ,$BDDAT 


50$ 
020000 001140 #OPI ,$GDDAT 
104021 21 ;OPI] NOT SET BY SEARCH TIMEOUT 
010746 50$: 


SD REE REE EEE EEE RARER ERE EERE ERAT ER EERE 
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seTEST 12 SET DTE TEST 46 

. J LEAR EEEEREERERERE ERR RERERRR RARER REERRREERE RRR ERS 4 

010746 000004 T$T12: Po 
000012 001226 #12, $TESTN ::SET TEST NUMBER IN APT MAIL BOX a¢ 

000024 001120 #20. ,$1CNT :20 ITERATIONS at 

000001 #1, SERMAX ONE ERROR ALLOWED a 

011010 #T12,$LPADR ;LOAD LOOP ON TEST ADDRESS A 

011010 001124 #112.$LPERR LOAD LOOP ON ERROR ADDRESS a( 

001100 #STACK,SP :LOAD THE STACK POINTER 4" 

“RO = UNIBUS ADDRESS OF UUT 4 


7R1_= POINTER TO DEVICE 
;SETUP ERROR MSG 
001136 


GD 
VERIFY THAT DRIVE TIMING ERROR IS RESET 
012760 000040 000010 ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
011050 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 


011054 016037 000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT S$BDDAT 
167777 001142 #*CDTE,$BDDAT 
10$ ;BRANCH IF DTE=0 


31 CANT RESET DTE 
BR 50$ ;SKIP REST OF TEST 
in! MAINTENANCE INDEX PULSE AND VERIFY DTE REMAINS RESET 


011074 000517 
011076 

012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 

012760 000005 000024 ADMD ! MI ,RMMR1 (RO) ;LOAD RMMR1 


016037 000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT S$BDDAT 
042737 167777 001142 epee! 


001402 
104000 ;DTE SET WHEN SECTOR 
000500 BR 50$ ; COMPARE SHOULD BE RESET 


20$: 
;EXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH 
012737 001410 MOV #0,RMDAO 


#5 ,RMDCO 
#FMT16,RMOFO 


oooo°oo COO 
ed ed ed od od — ss — 
~~ aS — — — 
NOUW SES WW 
NFSSAK ENS 


012737 001402 AWD !GO,RMCS10 
EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC,ENBSCH 


:GO TO 30$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 


BR 50$ 
WITH SEARCH ENABLED, SET AND RESET SECTOR PULSE TO SET ENABLE 
aa FLOP. 


004737 023352 


RRP ARRARDARDRARARADRADARADLALAAL APA ARL PHL EHLA ELLA LLL 
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CZRMKB.P11 
011212 
011220 


011226 


011250 


011250 
011256 
011264 


011272 


011332 
011334 


012760 
012760 


016037 
001432 


012760 
012760 
012760 


012760 
012760 


016037 
042737 
001004 


051441 
051401 


000014 
167777 


051403 
051443 
051403 


051441 
051401 


000014 
167777 


010000 


000013 
000024 
000001 
011376 
011376 
001100 
001276 


001456 
011752 


000040 
000010 
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000024 
000024 


01142 
01142 


000024 
000024 
000024 


000024 
000024 


001142 
001142 


001142 


001226 


001120 
gotta 
001122 
001124 


000010 


SET DTE TEST 
MOV ADMD ! MUR ! DBEN! MOC !DTO!MS ,RMMR1 (RO) ;LOAD RMMR1 


MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
7 SET sig PULSE AND VERIFY DTE DOES NOT SET 
: MR1 #DMD!MUR!DBEN!MOC!DTO!MS 
; PUTMR | ADMD ! MUR! DBEN! MOC !DTO 


RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
-_— 


4 
23 ;DTE SET WHEN SECTOR 
50$ COMPARE SHOULD BE RESET 


40$: 
sFORCE SECTOR COMPARE 


MOV #DMD ! MUR ! DBEN! MOC !DTO! MSC ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD !MUR!DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 


MOV #DMD ! MUR !DBEN!MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
;SET SECTOR PULSE AND VERIFY DTE SETS 


#DMD ! MUR ! DBEN! MOC !DTO!MS ,RMMR1 (RO) ;LOAD RMMR1 
ADMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


RMER1 (RO) , $BDDAT STORE RMER1 AT SBDDAT 
A*CDTE,$BDDAT 


50$ 
ADTE,SBDDAT 
24 


;COULD NOT SET DTE WiTH 
508 ;SECTOR COMPARE SET 


J FRR EERE EKER ERE ERK EKER EEE EERE EEE EERE EERE RR EEK 


i*TEST 13 FORMAT CHANGE TEST 


4 PRN la eRe lalallala Rahal lB hehe Re le heka hahahahaha lahahehahehehalhehalaheheheieleleheieieleleielsleisieleicleialel 


S113: 
#13, $TESTN 73SET TEST NUMBER IN APT MAIL BOX 


#20. ,$ICNT 3:20 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T13,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T13,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


AMSTACK , SP ;LOAD THE STACK POINTER 

$BASE ,RO :RO = UNIBUS ADDRESS OF UUT 

TSTQUE ,R1 :R1 = POINTER TO DEVICE 
108: #50$,R2 :R2=TABLE POINTER 


JROTC IOI IOI III IIT TR TTR TTI AISA IASAISASAIASI SSIS ISSSA IAM 
SINITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE 
MOV #CLR,RMCS2(RO) ;:CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 





SEQ 0073 CZRP 


HARADA HHAHHHAHLHHHHA HEP HHH HHH HHL HHH HHL HLL KL HHL LHLLSS 
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CZRMKB.P11 
011430 
011434 
011442 
011450 


011542 
011550 


011556 
0115 


011630 


011636 
011644 
011652 


011660 


011260 
012760 
012760 
012737 


012737 


004737 
000402 


104000 
000515 


012760 
012760 
012760 
012760 


016037 


012760 


012760 
012760 
012760 


012760 


000032 
000001 
000005 


000000 
000005 


000062 
054116 
177777 
000061 


023352 


051403 
051443 
051403 
051401 
000014 
167777 
001136 
000014 


001140 
001174 
000002 


051405 


051403 
051443 
051403 


051441 
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000024 


000024 
000024 
000024 
000024 


001142 
001142 


001136 


001176 


000024 


000024 
000024 
000024 


000024 


FORMAT CHANGE TEST 
MOV (R2),RMOF(RO)  ;LOAD RMOF 
MOV #DMD,RMMR1(RO) ;LOAD RMMR1 


MOV #DMD !MI ,RMMR1 (RO) LOAD RMMR1 
; SETUP 4 —_ Dummy DATA COMMAND USING OPPOSITE FORMAT 


#5 ,RMDCO 
2(R2) , RMOF O 
#BUF FER ,RMBAO 
#*C1+1,RMWCO 
#WD!GO,RMCS10 
;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC, ENBSCH 


e 


BR 208 :GO TO 20$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 60$ 

20$: 


FORMAT CHANGE FLOP SHOULD BE SET - a i ahd BY TRYING TO FORCE A 
[DRIVE TIMING ERROR WHICH SHOULD NOT SET 


MOV #DMD ! MUR ! DBEN! MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD !MUR! DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 
MOV ADMD !MUR ! DBEN! MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 


MOV ADMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMW1 
VERIFY THAT DRIVE TIMING ERROR DIDNT SET 


RMER1 (RO) , SBDDAT ;STORE RMER1 AT $BDDAT 
eee 


RO, $BDADR ; SETUP ERROR MESSAGE 
a 


$GDD. 
(R2) ,$TMPO 


2(R2) ,STMP1 
25 ;DTE SET WHEN THERE WAS 
60$ 7A FORMAT CHANGE 


30$: 
:CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE 


MOV #DMD !MUR! DBEN!MOC !DTO!MI ,RMMR1 (RO) ;LOAD RMMR1 
ENABLE SEARCH AND FORCE SECTOR COMPARE 


MOV ADMD !MUR ! DBEN! MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD !MUR!DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 


MOV ADMD !MUR ! DBEN! MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
SET DTE W/ANOTHER SECTOR PULSE - VERIFY OTE IS SET 


MOV #DMD !MUR ! DBEN! MOC !DTO!MS ,RMMR1 (RO) ;LOAD RMMR1 


SEQ 0074 
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011666 012760 051401 000024 #DMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


011674 016037 000014 001142 RMER1(RO), —e STORE RMER1 AT $BDDAT 
2737 167777 001142 ,SBDDA 


; SETUP ERROR MESSAGE 
001136 
001140 MO sore - SGDDAT 


60$ 
40$: 


RRR KR RERRAREKE ERE EEREKEEREKEKEEREEKEREREEREEREEEEEKREEKEEEREKKKK 


7b0 TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION 


022702 011752 CMP #50$,R2 

001006 60$ ;BRANCH IF DONE TEST 

062702 000002 #2,R2 sMOVE POINTER 
011750 000622 10$ ;REPEAT TEST 


011752 010000 : ° #FMT16 316-18 FORMAT CHANGE 
011754 000000 . 0 318-16 FORMAT CHANGE 
011756 010000 ° #FMT16 

011760 : END OF TEST 


FLARE EERE EERE ERE RE EERE REE EREREEEEE EERE EH 


s*TEST 14 PROM STROBE TEST 


FLEE REE EEREEEKEEEEREREREKEKEEREREREERE 


TST14: 
000014 001226 MOV #14, $TESTN 7¢SET TEST NUMBER IN APT MAIL BOX 


000024 001120 ! #20.,$1CNT 20 ITERATIONS 

000001 #1 , SERMAX ;ONE ERROR ALLOWED 
012022 #T14,$LPADR ;LOAD LOOP ON TEST ADDRESS 
C12022 001124 #T14,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 AMSTACK, SP ;LOAD THE STACK POINTER 
001276 $BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000010 ACLR,RMCS2(RO) CLEAR THE MASSBUS 
(R1)RMCS2(RO) SELECT UNIT 
SETUP ERROR MESSAGE 


ADD id 
;SET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE 
12062 012760 000001 000024 MOV #DMD,RMMR1(RO) ;LOAD 


0 RMR 
012070 012702 000021 MOV «#17. 2R2 “RO=MAXIMUM # CLOCK PULSES 
012074 5$: 


;COULD NOT SET DTE 


012054 001136 


012074 012760 004001 000024 ADMD !MCLK ,RMMR1 (RO) LOAD RMMR1 


012102 012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 


012110 016037 000024 001142 RMMR1 (RO) , SBDDAT STORE RMMR1 AT S$BDDAT 
042737 177737 001142 i areca 


001406 
012126 005302 R2 
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012216 


012216 
012222 


012222 
012230 
012236 
012244 
012252 
012254 
012262 
012264 
012266 
012270 
012272 
012276 
012276 
012304 


012312 


001361 
005037 
104000 


000501 
012702 
012760 


012760 
016037 


012702 


012760 
012760 
016037 
042737 
001005 


012737 
104032 


012702 


012760 
012760 
016037 


005302 
001355 


001140 
000021 


004001 
000001 


000024 
177737 


000040 


000003 


004001 
000001 
000024 
177737 


000040 


000010 


004001 
000001 


000024 
177737 


001140 


MACY11 


000024 
000024 


001142 
001142 


001140 


000024 
000024 
001142 
001142 


001140 


000024 
000024 


001142 
001142 


6 
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114 PROM STROBE T 


BNE 5$ 

CLR $GDDAT 

ERROR CAN'T CLEAR PROM STROBE 

BR 60$ 

MOV #17. ,R2 
#DMD !MCLK ,RMMR1 (RO) ;LOAD RMMR1 
#DMD,RMMR1(RO) ;LOAD RMMR1 
RMMR1(RO), _ STORE RMMR1 AT S$BDDAT 


#*CWC,SBDDAT 
3 EXIT LOOP WHEN PROM STROBE ON 


10$ 
MWC ,SGDDAT 
30 
60$ 
20$: 
; VERIFY i STROBE IS ON FOR 3 BIT CLOCKS 
25$: 


CANT SET PROM STROBE 


MOV ADMD !MCLK ,RMMR1 (RO) ;LOAD RMMR1 

MOV #DMD,RMMR1(RO) ;LOAD RMMR1 

MOV RMMR1 (RO) , $BDDAT STORE RMMR1 AT SBDDAT 

BIC #*CWC ,SBDDAT 

BNE 30$ BRANCH IF Pe STORBE DID NOT 
:DROP EARLY 

MOV Ge sere 


ERROR 
BR 60$ 
30$: DEC R2 


BNE 25$ 
;VERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS 
MOV #8. ,R2 
40$: 
ADMD !MCLK ,RMMR1 (RO) ;LOAD RMMR1 
#DMD,RMMR1(RO) ;LOAD RMMR1 
RMMR1 (RO), SBDDAT sSTORE RMMR1 AT SBDDAT 
#*CWC,$BDDAT 
50$ :BRANCH IF PROM STROBE 
;DID NOT SET EARLY 
50$: 
60$: 


SD RRR ERE EEE EERE AKER EEE REE ERR ERE KERR REE REE ERR EEE EE 
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z*TEST 15 SYNC WORD COUNT INHIBIT TEST 


FERRARA REE REE EEE EERE EERE EERE EREEEERRRER EERE RR 
TSTi5: 
001226 a #15,$TESIN 3zSET TEST NUMBER IN APT MAIL BOX 


74 neha 320 ITERATIONS 

#1,SERMA ;ONE ERROR ALLOWED 

#Ti5, SLPADR ;LOAD LOOP ON TEST ADDRESS 
"5 #T15,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


AMSTACK, SP ;LOAD THE STACK POINTER 
eet RO :RO = UNIBUS ADDRESS OF UUT 
012416 013701 MOV TSTQUE ,R1 R1 = POINTER TO DEVICE 
; OUTPUT BUFFER FOR SUBROU TINES 
012422 012737 000000 MOV #0 ,RMDAO ; SECT 
00000 #5, 


RMDCO 
#FMT 16, RMOFO é ORMAT 
WBUFFER,RMBAO STARTING BUFFER ADDRESS 


#*°C1+1,RMWCO [WORD COUNT 
000061 #WD'GO,RMCS1O WRITE DATA COMMAND 
000040 000010 AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
000010 (R1).RMCS2(RO) SELECT UNIT 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
023352 JSR PC,ENBSCH 
BR 10$ :GO TO 10$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
BR 120$ SKIP IF FAILURE 


10$: 
sFORCE SECTOR COMPARE USING SUBROUTINE 
JSR PC,SCTCMP 


BR 20$ :GO TO 20$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
012522 BR 120$ 


KERR KEKE EKKEKEKKEKEREEKKKEEEEEKEEEKEKKEREKEKKEKEKEKKEEKEK 


CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET 


zSTEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING ‘PLFS"’ 
012524 012702 000000 20$: MOV #0,R2 ;R2=SEQUENCER ADDRESS 


012530 30$: 
PULSE MAINTENANCE CLOCK UNTIL PROM STROBE SETS 
012530 012760 055401 000024 MOV #DMD !MUR ! DBEN! MOC !DTO!MCLK,RMMR1 (RO) LOAD RMMR1 © 


012536 012760 051401 000024 MOV ADMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
SEE IF PROM STROBE IS SET 


012544 e MOV RMMR1 (RO) ,R3 STORE RMMR1 AT R3 
0004 MWC .R3 
Ay 30$ ISSUE NEXT BIT CLOCK 
Re ; INCREMENT SEQUENCER ADDRESS 
; CHECK "LOOKING FOR dy - SHOULD BE ZERO UNTIL LOCATION 11 
010337 42 R3,$8 
042737 001142 BIC PCPLFS. SBDDAT 
012572 001413 BEQ 50$ BRANCH IF PLFS IS ZERO 


012512 
012512 024232 
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012574 SGDDAT 
012600 001136 RO, $BD..DR 
#RMMR 1 , SBDADR 
R2,$TMPO 
4 LFS SHOULD NOT BE SET 


120$ ; SKIP nest OF TEST 


50$: 
;EXIT LOOP IF SEQUENCER NOW AT agape 10 
022702 CMP #10. ,R2 


BEQ 70$ 
im MAINTENANCE CLOCK UNTIL PROM STROBE RESETS 


001414 


012760 055401 MOV #DMD ! MUR ! DBEN! MOC ! DTO!MCLK ,RMMR1 (RO) ;LOAD RMMR1 


012760 051401 MOV ADMD! MUR! DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
SEE IF PROM STROBE IS RESET 


016003 000024 MO RMMR1 (RO) .R3 ;STORE RMMR1 AT R3 
Oe 000040 R3 


000724 ;GO STEP SEQUENCER TO NEXT LOC 


errr tiittittiitititi iti tti iti itiiiititi titi iti titi titi i tii 
THE NEXT PROM STROBE SHOULD SET ‘PLFS'' AT LOCATION 11(10) OF THE 
ZDATA — SEQUENCER. 

012702 000020 #16. ,R2 ;R2=NUMBER OF BIT CLOCKS 
te pe 16 BIT CLOCKS TO GET NEXT’ PROM STROBE 


012760 055401 000024 MOV ADMD ! MUR ! DBEN! MOC !DTO!MCLK,RMMR1 (RO) LOAD RMMR1 


Ae 012760 051401 000024 5: + alegre tat (RO) ;LOAD RMMR1 
012702 BNE 80$ 
VERIFY THAT *PLFS*’ IS NOW SET 


000024 001142 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
175777 001142 #*CPLFS,$BDDAT 
9 ;BRANCH IF PLFS IS SET 


0S 
002000 001140 #PLFS,$GDDAT ; SETUP ERROR MESSAGE 
001136 RO, SBDADR 
000024 001136 #RMMR1 , SBDADR 
35 ;"PLFS'' DID NOT SET 
120$ ;SKIP REST OF TEST 
012746 90$: 


ISSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE 


012746 012702 000003 MOV #3,R2 
012752 95$: 


012752 012760 055401 000024 MOV #DMD ! MUR ! DBEN!MOC !DTO!MCLK ,RMMR1 (RO) LOAD RMMR1 


012760 012760 051401 000024 #DMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
012766 005302 R2 
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012770 


012772 
012776 


012776 


013054 
013056 


013056 


013212 
013212 


001370 


012702 


012760 
012760 


001350 


013701 
012737 


000040 


055401 
051401 


000024 
177737 


001140 
001142 


001136 


000024 


000016 
000024 
000001 
013120 
013120 
001100 
001276 
001456 
000000 
000005 
010000 
054116 
177777 
000071 


023352 


024232 


MACY11 


000024 
000024 


001136 


001226 
001120 
001131 


001122 
001124 


001410 


001402 
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E 95$ 
: ceabhaneadeatannedatl seesubonenenahehuagiesshetantehenneesenih 
WITH "LOOKING FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET 
;PROM STROBE 
MOV #32. ,R2 ;R2=NUMBER OF BIT CLOCKS 


PULSE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET 
ADMD ! MUR ! DBEN! MOC !DTO!MCLK,RMMR1 (RO) ;LOAD RMMR1 
ADMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
RMMR 1 Re »R3 STORE RMMR1 AT R3 


;BRANCH IF PROM STROBE IS 0 
; SETUP ERROR MESSAGE 


BR ;PROM STROBE WHILE LOOKING FOR SYNC 
110$: +3 CONTINUE FOR 32 BIT CLOCKS 


120$: ;END OF TEST 


SL RARE KKKKE III II III III IK IIH K KEKE KEK EKKKKK 


s*TEST 16 SYNC DETECTION TEST 


ROI III IOI OOO ICID UII IRI TTA ITAA IISAIIIIISI SIS SSIS ISI ISIS. 
TST16: 
#16,$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 


#20. ,$ICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T16,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T16,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK, SP + LOAD THE STACK POINTER 
$BASE, ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
OUTPUT BUFFER FOR SUBROUTINES 
#0 ,RMDAO SECTOR 0,TRACK 0 
#5 ,RMDCO CYLINDER 5 
#FMT 16, RMOFO ;16 BIT MODE 

[BUFFER ADDRESS 


. CORD COUNT 
#RD!GO.RMCS10 READ DATA COMMAND 
;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC ,ENBSCH 
BR 10$ :GO TO 10$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 100$ 


10$: 
FORCE SECTOR COMPARE USING SUBROUTINE 
JSR PC,SCTCMP 


116: 


SEQ 0079 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
2.4 
4 
4 
4 
4 
4 
4 
4 
4 
d 
4 
4 
d 
d 
4 
d 
d 
d 
d 
d 
y 
d 
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013216 


013224 
013224 


013254 


013260 
013266 


013266 
013274 
013302 


013350 
013356 
013364 
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024340 


000020 


001140 
012760 053401 


012760 057401 
012760 053401 


016037 000024 
177737 


177777 


012702 000020 


012760 055401 
012760 051401 


016037 000024 
2737 177737 


001174 


012702 000040 
012703 000031 


. £ 
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001136 


000024 


000024 
000024 


001142 
001142 


001174 


000024 
000024 


001142 
001142 


SYNC DETECTION TEST 


BR 208 :GO TO 20$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 100$ 


20$: 
:SET "LOOKING FOR SYNC'’ USING SUBROUTINE 
JSR PC,SETLFS 


BR 

ERROR 

BR 100$ 
308: 


FCRIII IORI IOI IORI OR IORI IIIA IASI ISIS SIS IISA SIASISSIISI IAAI SSS ASAS SAS. 
[CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 
; (USING PROM STORBE AS INDICATION) 


;NUMBER OF ONE BITS 
; SETUP ERROR MESSAGE 


S$GDDAT 
A#MRIAAA!MRD,RMMR1(RO) ;LOAD RMMR1 


AMR 1AAA! MRD !MCLK,RMMR1 (RO) ;LOAD RMMR1 
AMRIAAA!MRD,RMMR1(RO) ;LOAD RMMR1 


RMMR1 (RO) , $BDDAT STORE RMMR1 AT S$BDDAT 
#*CWC, SBDDAT 


50$ 

#177777 ,$TMPO 
37 

100$ 


ihe REPEAT FOR 16 BITS 
#16.,R2 NUMBER OF ZERO BITS 


IORI ICR IORI IORI IOI IOI IORI OR IORI IID IA ISISIISISIIISSISAISSIISISSISSASI SASS. 
rig ALL ZERO SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 
#MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
AMR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
ae mata :MAKE SURE SYNC NOT DETECTED 
7SYNC DETECTED W/ALL O'S PATTERN 
7SKIP IF FAILURE 
;REPEAT FOR 16 BITS 


#32. ,R2 ;R2=NUMBER OF BITS 
#000031 ,R3 [R3=SYNC PATTERN FOR LEFT SHIFT 





SEQ 0080 


PRHARADRHSDAAPHPARARHHPHHPHHPHALHPHHHPHHHHLHHLHLHLHHPHLH LLL LLL LLL LLL 
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ya Se 


DDSI IIIS IOI IISIOISI IIR SOIT ICI IOI TIT TTT ASI AAI IASI SSASSSSASS AM 
Bio lng BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS 
013420 012737 051401 001426 80S: MOV AMRIAAA,RMMR1O ;GENERATE VALUE OF RMMR1 
000241 ;CLEAR THE CARR 
006003 R3 :SHIFT RIGHT 
103003 90$ [BRANCH IF C BIT CLEAR 
052737 002000 001426 AMRD ,RMMR10 ;SET MRD IF PATTER BIT SETS 


5 a ae el eet ee 


013760 001426 000024 RMMR10,RMMR1 (RO) ;LOAD RMMR1 
052737 004000 001426 AMCLK,RMMR10 ;SET THE MAINTENANCE DATA CLK 


013760 001426 000024 RMMR10,RMMR1 (RO) ;LOAD RMMR1 
042737 004000 001426 AMCLK,RMMR10 RESET BIT CLOCK 


013760 001426 000024 RMMR10,RMMR1 (RO) ;LOAD RMMR1 


016037 000024 001142 RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
177737 001142 #*CWC, SBDDAT 
100$ ;BRANCH IF PROM STROBE IS SET 
R2 ;CONTINME FOR 16 BIT CLOCKS 


80$ 
000040 001140 AWC ,SGDDAT 
40 3SYNC PATTERN NOT DETECTED 
013532 100$: ;END OF TEST 


23 RK KEKE EEK EEE EKEEKERKKEKEKEEKKEKEKKKKKEKKKKKEK 


s*TEST 17 ABORT SYNC DETECTION TEST 


ROR IORI IOI IOI IOI IORI AIA IASI A III IASI III ISI ISAISI ASIII IASIS ISIS SSASSA AS. 
013532 TST17: 
000017 001226 MO #17, $TESTN 72SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,$iCNT 520 ak RT 
000001 #1, SERMAX ONE ERROR ALLOWED 
013574 #717, $LPADR :LOAD LOOP ON TEST ADDRESS 
013574 1124 _ #T17,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
001100 STACK, SP LOAD THE STACK POINTER 
001276 SBASE ,RO 7;RO = UNIBUS ADDRESS OF UUT 
013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
: OUTPUT BUFFER FOR SUBROUTINES 
012737 000000 MOV yew ;SECT 


000005 #5 ,RMD 

010000 *iT 16, RMOF O : IT FORMAT 

054116 TSTARTING BUFFER ADDRESS 
177777 ;WORD COUNT 

000071 001402 #RD'GO.RMCS10 READ DATA COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC,ENBSCH 
BR 10$ ;GO TO 10$ IF NO ERROR 


ERROR ;RETURN HERE IF ERROR 
BR 50$ 


5 a? a a et elt ee Se 


023352 


PHOBRBRHRARARAHBRARARAHRAHHARARAHARHHHPHHEARHHHHHLHHPLHHLLHHLLH LL 
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10$: 
FORCE SECTOR COMPARE + SUBROUT INE 
004737 024232 JSR PC,SCTCMP 
000402 BR 20$ :GO TO 20$ IF NO ERROR 
_— 50$ SRETURN HERE IF ERROR 


20$: 
;SET ‘LOOKING FOR SYNC'’ USING SUBROUTINE 
024340 JSR PC,SETLFS 


000435 
013712 
JCI OIIOIIOIUICIOIOIOIOI IOI TORII TOIT TI TO TOT TTT TT TST TOT TTT TOT TTT TATA SAIS SAS 
“LOOK ING FOR SYNC _INHIBITS WORD CLOCK,HOWEVER, ‘DRIVE TIMING ERROR’’ 
;SHOULD RESET ‘LFS WORD COUNT INHIBIT’ FLOP 
;FORCE DRIVE TIMING ERROR 


013712 012760 051441 000024 MOV AMR1AAA!MS ,RMMR1 (RO) ;LOAD RMMR1 
;PULSE BIT CLOCK AND VERIFY PROM STROBE SETS 
aig 012702 000020 «os MOV #16.,R2 3R2, NUMBER OF BIT CLOCKS 


013724 012760 055441 000024 #MR1AAA!MS !MCLK,RMMR1 (RO) ;LOAD RMMR1 
013732 012760 051441 000024 AMR 1AAA!MS ,RMMR1 (RO) ;LOAD RMMR1 


013740 016037 000024 001142 RMMR1 (RO) , SBDVAT ;STORE RMMR1 AT $BDDAT 
177737 001142 a acca 


000040 001140 
001136 
000024 001136 #RMMR1 , SBDADR 
soe 41 :;DTE DIDNOT CLEAR WORD COUNT INH 


FZ II IIIT I TTT I I SOT KI IT TIT IIIT TK IIR 


i*TEST 20 SYNC GENERATION TEST 


FOR RIOIIORIORCIOCIIORIOSIORISAIAIAIIS AIA ISI ISIIAI IIIS ISISAI IIIA IISA ISI ISIS SAN. 
000004 TST20: 
000020 001226 MO #20, $TESTN 72SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,$ICNT 3:20 ITERATIONS 
#1 , SERMAX ;ONE ERROR ALLOWED 
#T20,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 014046 001124 120 #T20,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
012706 001100 ASTACK , SP ;LOAD THE STACK POINTER 
013700 001276 prt RO :RO = UNIBUS ADDRESS OF UUT 
014056 013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
;SETUP REGISTER OUTPUT BUFFER FOR SUBROUT INES 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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012737 001410 #0 ,RMDAO 2 SECTOR 0, TRACK 0 4 
#5 ,RMDCO YL 5 
#FMT16,RMOFO ;16 BIT MODE 
BUFFER ,RMBAO BUFFER ADDRESS 
#*C2+1,RMWCO WORD COUNT 

014120 012737 001402 #WH!GO,RMCS10 ;WHITE HEAD AND DATA COM 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
014126 004737 023352 JSR PC,ENBSCH 


014132 000403 BR 10$ :GO TO 10$ IF NO ERROR 
014134 104000 ERROR ite “RETURN HERE IF ERROR 
014136 000137 014526 JMP 160$ : 


014142 10$: 
FORCE SECTOR COMPARE os ge SUBROUT INE 
014142 004737 024232 JSR PC,SCTCMP 
000402 BR 20$ :GO TO 20$ IF NO ERROR 
104000 ERROR [RETURN HERE IF ERROR 
000565 BR 160$ : 
014154 208: 


ZS UIOIOIIOISIICIIOIOISIDIOIIDIDISIDIDIDIDIDIIDITITIOI IIIT TOIT TOIT TRIO TOT IO 
;WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED 
FIRST, VERIFY THAT WRITE GATE IS ON, INDICATING THAT 

;SECTOR COMPARE SET 


014154 016037 000040 001142 RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 


177776 +=001142 wees tages ;BUS BIT 0 IS WRITE GATE 


001140 $GDDAT 

001136 RO, $BDADR 

000040 001136 ARMMR2 , SBDADR 
42 ;WRITE GATE NOT ON DURING 
160$ ;FORMAT-CS FAILURE 


30$: 

: STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE 
;GATE STAYS ON 

014214 012702 000016 MOV #14. ,R2 ;MAXMUM NUMBER OF CLOCK 
014220 40$: 

014220 016037 000040 3300, SBD5AT , SBDDAT ;STORE RMMR2 AT $BDDAT 


000001 : 
;BRANCH IF WRITE GATE ON 


014214 


001136 
000040 
000001 001140 #8300, $GDDAT 
42 WRITE GATE DROP DURING 
000520 160$ FORMAT ~ CS FAILURE 


012760 055401 000024 A#MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


PARPRRARKRDRARRARRRADRHRHAARADHLARHRDSDHHRDHLLHA HAHAH HL LALA LHL LHL HHL HLL SDS 
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CZRMKB.P11 
014274 
014302 
014306 

014312 


014314 
014316 


014320 
014320 
014326 


014350 


014350 
014354 
014356 


014356 


014402 
014402 
014410 
014416 
014420 


014420 


014432 
014432 
014436 
014440 


014440 


012760 


005302 
001414 


012760 
012760 


012702 
005003 


012760 
012760 
000757 


020327 


012702 
005003 


016004 


051401 


000024 
000040 


055401 
051401 


000024 
000040 


000020 


000024 
000010 


055401 
051401 


000010 


000010 


000024 


G 7 
MACY11 30A(1052) 18=-AUG-78 12:59 PAGE 84 
T20 SYNC GENERATION TEST 


000024 MOV #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 


MOV RMMR1 (RO) ,R3 STORE RMMR1 AT R3 
BIT AWC RS 


BEQ 60$ 
; PROM ee wat eels wotsdene: PROM STROBE COUNT 


BEQ 80$ 
ted FOR PROM STROBE TO GO OFF, THEN REPEAT LOOP 


000024 AMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
000024 AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1 (RO) ,R3 STORE RMMR1 AT R3 

a 


70$ 
80$: 


SL AAR REE REE REE EEEERERERERERREEERRERRERE REE RE RREEH 
; VERIFY HEADER SYNC GENERATION 
sWRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER 
sFIRST,COUNT NUMBER OF ZERO BITS alg FIRST ONE BIT 
MOV 4 ale ;MAX TIMES THRU LOOP 
90$: 
RMMR1 (RO) RS ;STORE RMMR1 AT R4 
AMWD ,R4S 
JUMP OUT OF LOOP WITH FIRST 1 


INCREMENT ZERO COUNT 
[DECREMENT MAX LOOP COUNT 


HEADER SYNC ,CANT GET FIRST 1 


000024 AMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
000024 es A EY ne ;LOAD RMMR1 


110$: 
iMAKE a wate @~ AT LEAST 8 ZERO BITS IN HEADER SYNC 


HEADER SYNC 


20$: 
; SAMPLE AND STORE THE REST OF THE HEADER SYNC 

MOV #8. ,R2 NUMBER OF SAMPLES 
1308 CLR R3 HEADER SYNC 


RMMR1 (RO) ,R4 STORE RMMR1 AT R4 





SEQ 0084 


PRDRDARADA DARA DAAHHAR DLS! 


co? a at ae oP a DE et et et et 





7 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12: 59 = 85 SEQ 0085 
CZRMKB.P11 14-AUG-78 15:53 T20 SYNC GENERATION TEST 


4090 014444 
409 


000070 ' SHIFT SAMPLE,IF SYNC BIT IS 1 
BN THEN SET SAMPLE INPUT 
000901 


055401 000024 AMRIAAA!MCLK,RMMRi(RO) ;LOAD RMMRI 


014472 012760 051401 000024 AMR 1AAA,RMMR1 (RO) Pm 
014500 000757 BR 130$ :bd0 Loop’ TIL Ro=0 


014502 
; THE SYNC BIT STREAM IS 0000000010011000 
014502 012737 000230 001140 MO #000230, $GDDAT 
R3,$BDDAT 
001142 $GDDAT , SBDDAT 
160$ 


; INCORRECT HEADER SYNC 
014526 160$: 


FLARE REREREEREREEERERARERAEERERAEEEEEARAERRERRRRRAEEEE ERS 


s*TEST 21 WRITE HEADER TEST 


SII II IOI IOIIOIISIOIISIS IIIS IOIOIOIUIIUIUIDIUINIT I ITO IO IOn iit 
014526 0000 $121: 
000021 001226 MO #21,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 


001120 #20. ,$1CNT 320 ITERATIONS 
#1, SERMAX ;ONE ERROR ALLOWED 
#T21,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T21,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


STACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 7R1_= POINTER TO DEVICE 
014604 000010 #CLR,RMCS2(RO) CLEAR THE MASSBUS 
014612 111160 MOVB (R1).RMCS2(RO) SELECT UNIT 
;SETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES 
014616 012737 001410 MOV #002037, RACK 4 


001436 
001434 : 
[BUFFER ADDRESS 
R2,RMBAO *BUFFER STARTS 
#151466,(R2)+ STORE FIRST HEADER WORD 
#002037, (R2) :STORE SECOND HEADER WORD 
001404 #*C2+1,RMWCO CTR = 2 
001402 #tWH!GO,RMCS10 “WRITE HEADER COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC ,ENBSCH 


;GO TO 10$ IF NO ERROR 
7 RETURN HERE IF ERROR 
015506 160$ : 


014710 10$: 
7 FORCE oy COMPARE sp SUBROUT INE 
014710 024232 PC,SCTCM 
014714 aR 20$ :GO TO 20$ IF NO ERROR 


023352 
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014716 104000 ERROR ;RETURN HERE IF ERROR 

014720 000137 015506 JMP 160$ 

014724 208: 
I RII IOI III IOI IOIIOIOIUIOIOIIOIIUIOT I Tri i Riot it tit t 
[STEP THE DATA TIMING SEQUENCER ty “HEADER AREA'’ COMES ON 

014724 012702 000017 MOV #15.,R2 zALLOW 15 MORE PROM STORBES 

014730 012704 000041 30$: MOV #33. ,R4 ‘ALLOW 33 BIT CLOCKS PER PROM STROBE 


:PULSE BIT CLOCK UNTIL PROM STROBE IS ON 
014734 40$: 


014734 012760 055401 000024 AMRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
014742 012760 051401 000024 AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 


014750 016003 000024 RMMR1 (RO) R53 STORE RMMR? AT R35 
aatene 000040 AWC RS 


005304 

001363 

000137 015506 ; COUNT EXHAUSTED 
014772 50$: 


:SEE IF 
014772 032703 B 


BNE 60$ 
; ERROR~HEADER ~ NEVER CAME ON 
001140 MOV HA, $GDDAT ; SETUP ERROR MESSAGE 
SBDDAT 
RO, $BDADR 
001136 #RMMR1 , SBDADR 
45 HEADER AREA WONT SET 
015506 160$ SKIP REST OF TEST 


60$: 

WAIT FOR PROM STROBE TO GO OFF 
012760 055401 000024 AMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
012760 051401 000024 AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 


000024 RMMR1 (RO) .R3 STORE RMMR1 AT R3 
000040 AWC .R3 


015506 Ais : COUNT EXHAUSTED 
: VERIFY BUS ONCE EVERY PROM STROBE 


016037 000040 MO RMMR2 (RO) , $BDDAT STORE RMMR2 AT SBDDAT 
042737 #*C1777, $BDDAT 

022737 MP #BB00, $BDDAT WRITE GATE SHOULD BE ON 
001704 30$ sALL ELSE OFF 
010037 001136 RO, $BDADR : 
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015124 062737 000040 001136 ADD ARMMR2 , SBDADR 
012737 000001 001140 MOV #BB00, SGDDAT 
104042 ERROR 42 ;TAG BUS WRONG DURING FORMAT 
000561 BR 160$ 


80$: 

;HEADER AREA IS NOW ON CAN START SAMPLE 

sDATA AFTER 5 MORE BIT CLOCKS 

015144 012702 000005 MOV #5,R2 

015150 81$: 

015150 012760 055401 MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 

015156 012760 051401 MOV AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 
005302 R2 


DEC 
81$ 


015144 


LER ERE EEE EEE REE REE REE RRR EERE RRR REE 


; SAMPLE AND STORE THE TWO HEADER WORDS 
CLR $STMPO 


STMP1 
#STMPO ,R2 zR2 NUMBER OF WORDS/ADDRESS 
90$: #16. ,R3 [NUMBER OF BITS 
R4 ;WORD STORAGE 
015212 100$: 


015212 000024 RMMR1(RO).RS  : STORE RMMR1 AT R5 
006304 RG SHIFT WORD SAMPLE 
000010 Hd RS “SET BIT 0 IF WRITE BIT ON 
000001 #BITO.R4 
015232 


015232 012760 055401 000024 AMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
015240 012760 051401 000024 AMR 1AAA ,RMMR1 (RO) ;LOAD RMMR1 
005303 R3 
001360 BN 100$ 
010422 R4,(R2)+ ; STORE WORD SAMPLE 
022702 001200 ASTMPO+4 ,R2 ;DONE ? 


101415 BL 120$ iYES 
sHEADER AREA ~" aly BE ON FOR SECOND HEADER WORD 
177577 BIC #*C<PHA>,R5 


001136 
000024 
000200 an. , SGDDAT 


160$ 
015314 1208: 


Fy stolabaelololahaleletelslabetatelotaiahalelatetaietaiateleletetiaiateleteieieieieetaiaieieebsiaieiaieieieleieieiaieiels 
“WAIT UNTIL ECRC SETS 
015314 CLR R3 ;CHECK NUMBER BITS DIFFER BET PHA AND ECRC 


015316 125$: 


015316 000024 MOV RMMR1 (RO) ,R5 STORE RMMR1 AT RS 
015322 042705 176777 BIC #*C<ECRC>,R5 CHECK OUT THE REST BITS 





CZRMKBO RMO3/2 DSKLS PRT 2 
14-AUG-78 15:53 


CZRMKB.P11 
“015326 


015412 
015412 


015432 
015432 
015440 
015446 


015450 
015452 


015454 


015526 


001026 
012760 
012760 

5203 


012703 
005004 


016005 
006304 
032705 
001002 
052704 
012760 
012760 


000240 
012737 
112737 


055401 
051401 


001000 
001142 


000020 


000024 
000010 
000001 


055401 
051401, 


5 
, 


066313 
174040 
167501 


000022 


000024 
000001 


MACY11 30A(1052) 
T21 


000024 


000024 


‘ 
St 


+8 


001174 
001176 
001200 


001226 


001120 
001131 


WRITE HEADER TEST 
127$ 


#MR1AAA!MCLK ,RMMR1 (RO) 
+ pate aa, 


3 
#16. ,R3 
125$ 


2 

RO, $BDADR 
#RMMR 1 , SBDADR 
#ECRC ,$GDDAT 
$BDDAT 


46 
160$ 
127$: 


kK 7 
18-AUG-78 12:59 PAGE 88 


;BRANCH IF ECRC ON 
;LOAD RMMR1 
AD RMMR1 
OTAL NuMBER . BIT DIFF 


‘OVER ONE WORD ? 
BRANCH IF NOT 


sCLEAR THE EXP 
sEXIT 


Pa alah leah le hahahahaha hehehehe hehehehehe hehehehehetelehelelaieheleheheheleleheheheheieieleleleieleicleleieleleieieieieielelel 


;SAMPLE AND STORE CRC WORD 
MOV #16. ,R3 
130$: 
RMMR1 (RO) RS 
RS 
#MWD RS 


140$° 
#BITO,R4 


AMR 1AAA!MCLK ,RMMR1 (RO) 
fn shane 


130$ 
R4,(R2)+ 


: STORE RMMR1 AT RS 
;SHIFT WORD SAMPLE 
[SET BIT O IF WRITE BIT ON 


;LOAD RMMR1 
;LOAD RMMR1 


LTA RARER ERR EEE EEE EERE EERE EEE 


VERIFY 3 HEADER 


WORDS 
:NOTE THAT DATA WAS STORED IN tome REVERSE 


ORDER FROM WHICH IT WAS WRIT 
CMP #066313, $TMPO 


150$ 
| et atl 
#167501, $TMP2 
160$ 


150$: 
1608: 


47 


:BRANCH IF ERROR 
BRANCH IF ERROR 
“BRANCH IF NO ERROR 


END OF SUB TEST 


OTTITTTITIITTITITITITI IIIT LLL ELL iid. 


S*TEST 22 


TST22: SCOPE 
MOV 
NOP 
MOV 
MOVB 


#22, $TESIN 


#20.,$1CNT 
#1, SERMAX 


HEADER COMPARE TEST 


FL RRR KEE RIKER ERE REE REE EKER EERE ERE EERE KEK REE ERE REE 


33SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
ONE ERROR ALLOWED 
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015656 
015656 
015662 

15664 
015666 
015672 


015672 
015676 
015704 
015710 


015714 


015714 
015722 


015752 


7 
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012737 015550 001122 
012737 015550 001124 


013701 


012737 


001402 


000010 


023352 


016756 


024232 


016756 


001136 
000040 001136 
000004 
000021 


055401 000024 
051401 000024 


000024 
000040 


016756 


ADER COMPARE TEST 


#T22,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T22,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


AMSTACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 3R1 = POINTER TO DEVICE 


;LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND 


#001466 ,RMDCO :CYL=822. 
#2037 ,RMDAO 7 TRK=4,SEC=31. 
:DATA ADDRESS 
READ ee ONLY 
:16 T MODE 
#RH!GO,RMCS10 ;READ HEADER AND DATA FU’ 


;CLEAR THE MASSBUS 
MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 


7 EXECUTE = OO enesen POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
BR 10$ :GO TO 10$ IF NO ERROR 
ERROR ZRETURN HERE IF ERROR 
JMP 2308 SKIP REST OF TEST IF ERROR 


10$: 
sFORCE SECTOR COMPARE USING SUBROUTINE 
JSR PC,SCTCMP 


BR 20$ :GO TO 20$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
JMP 230$ 


20$: 
;READ GATE SHOULD BE OFF FOR 3 PROM STROBES 


RO, $BDADR ; SETUP ERROR MESSAGE 


ARMMR2 , SBDADR 
#4 ,R2 -R2=NUMBER OF PROM STROBES 
#17. ,R4 :MAX BIT CLOCKS 


;CLOCK BIT CLOCK UNTIL PROM STROBE COMES ON 


A#MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
AMR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1 (RO) ,R3 STORE RMMR1 AT R3 
MWC RS 
;BRANCH WHEN PROM STROBE ON 


PRR KKKKEK 


SEQ 0089 
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4370 :VERIFY READ GATE IS OFF AND TAG BUS IS ZERO 

4372 

4373 015752 016003 000040 MOV RMMR2(RO),R3  -; STORE _RMMR2 AT R3 
4374 015756 042703 176000 BIC #°C1777,R3 

4375 015762 001407 BEQ 60$ :BRANCH IF TAG BUS ZERO 
4376 015764 010337 001142 MOV R3,$BDDAT 

4377 015770 005037 001140 CLR $GDDAT 

4378 015774 104050 ERROR 50 

4379 015776 000137 016756 JMP 230$ ;READ HEADER FUNCTION 
4380 016002 60$: 

4381 =CLOCK BIT CLOCK TIL PROM STROBE GOES OFF 

4383 

rho} 016002 012760 055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
4386 016010 012760 051401 000024 MOV #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
4388 016016 016003 000024 MOV RMMR1(RO).R3 =; STORE RMMR1 AT R3 
4389 016022 032703 000040 BIT #WCR3 

4390 016026 001404 BEQ 70$ :BRANCH IF PROM STROBE OFF 
4391 016030 005304 DEC R4 

4392 016032 001363 BNE 60$ 

4293 016034 000137 016756 JMP 2308 ittitttitiiit. 

4,394 016040 70$: 

4395 s CONTINUE FOR 3 BIT CYCLE TOTAL (LOC 0 NOT SAMPLED) 
4397 016040 005302 DEC R2 

4398 016042 001322 BNE 30S 

4400 J LARA ER EERE EERE KERRI KH 
4401 “READ GATE SHOULD COME ON WITH NEXT PROM STROBE AND STAY 
4402 [ON FOR 7 CYCLES (AND MORE) 

4404 016044 012702 000006 MOV #6,R2 

4405 016050 012703 000021 80$: MOV #17.,R3 

4406 sCLOCK BIT CLOCK TIL PROM STROBE SETS 

4408 016054 90$: 

4410 016054 012760 055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
4412 016062 012760 051401 000024 MOV #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
4414 016070 016004 000024 MOV RMMR1(RO).R4  ; STORE RMMR1 AT R4 
4415 016074 032704 000040 BIT MWC RS 

4416 016100 001004 BNE 100$ :BRANCH WHEN PROM STROBE ON 
4417 016102 005303 DEC R3 

4418 0161046 001363 BNE 90$ 

4419 016106 000137 016756 JMP 2308 Pitti tt ttt t 

4420 016112 100$: 

“s) : VERIFY READ GATE ON AND REST OF TAG BUS OFF 

4423 016112 016004 000040 MOV RMMR2(RO),R4 § ;STORE RMMR2 AT R4 
4424 016116 042704 176000 BIC #°C1777,RG 

4425 016122 022704 000002 CMP #BB01,R4 
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016126 110$ :BRANCH IF READ GATE ON 

016130 010437 001142 R4 , SBDDAT 

016134 000002 MOV #8801, $GDDAT 

016142 104050 50 TAG BUS INCORRECT DURING 
016144 000137 016756 MP 2308 ;READ HEADER FUNCTION 


016150 110$: 
:CLOCK BIT CLOCK TIL PROM STROBE GOES OFF 





016150 055401 #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
016156 051401 #MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
000024 RMMR1 (RO) .R4 STORE RMMR1 AT RG 
000040 MWC RS 
1208 ;BRANCH WHEN PROM STROBE OFF 
110$ 
016756 230$ 
120$: 
CONTINUE FOR TOATL OF 7 CYCLES 
DEC R2 
016210 BNE 80$ Bae Re 
SAIS IIIOIO IIS SISIO OI IISIIUOIOIIIIIOU III ER Ek nttt 
“LOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE 
016212 MOV #17.,R2 sMAX BIT CLOCKS 


016216 130$: 
:CLOCK BIT CLOCK TIL PROM STROBE SETS 


016216 055401 A#MRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
016224 051401 AMR 1AAA ,RMMR1 (RO) LOAD RMMR1 
016232 016003 000024 RMMR1 (RO) ,R3 :STORE RMMR1 AT R3 
000040 MWC ,R3 
BNE Le ;BRANCH WHEN PROM STROBE ON 
BNE 130$ 
016756 J 230$ 


140$: 
;VERIFY 'PLFS'’ IS NOW ON 
175777 BIC #*CPLFS,R3 
BN 150$ 


001142 


R3,$BDDAT 
002000 #PLFS,$GDDAT 
001136 RO, $BDADR 
000024 oven! , SBDADR 
016756 JMP 2308 


150$: 


016314 012703 000005 MOV #5 ,R3 
suit PLFS ON, WORD COUNT INHIBIT WILL SET IN 5 BIT CLOCKS 


016320 


MMIMMMAaAa 
— SS 3 
PRPRCRAPRPRi Mini nmin 
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016320 
016326 


016364 
016372 
016372 
016400 


016470 
016476 
016476 


016504 .. 


016512 
016520 
016522 
016524 
016530 


016532 
016536 


012760 
012760 


005303 
001370 


012702 
012703 


012737 
000241 
006002 


103003 
052737 


013760 
042737 
013760 


005303 
001354 


012702 


012737 


012703 
012204 


012737 
000241 
006004 
103003 
052737 
013760 
042737 


013760 


101746 


012702 
012703 


055401 
051401 


000031 
000010 


055401 
002000 
001426 


004000 
001426 


001174 


101367 
000020 


055401 


002000 
001426 
004000 
001426 
001200 


000006 
000021 
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000024 
000024 


001426 


001426 


000024 
001426 


000024 


001174 
001176 
001200 


001426 


001426 


000024 
001426 


000024 


R COMPARE TES 


MOV AMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 


MOV AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 
DEC R3 
BNE 155$ 


RR ICICI COICO OIRO IOI IIIT TTT TITAS IAASISASISSAIASISISISISSISISSISASI A. 
: SIMULATE THE SYNC PATTERN BEING READ 
MOV 31,R2 SYNC PATTERN=00011001 
#8. ,R3 38 BITS IN PATTERN 


AMR1AAA!MCLK ,RMMR10 
R2 


165$ 
AMRD ,RMMR10 


160$: 


RMMR10,RMMR1 (RO) LOAD RMMR1 
A#MCLK ,.RMMR10 


RMMR10,RMMR1 (RO) ;LOAD RMMR1 
R3 ONTINUE TIL SHIFT COUNT 
160$ HIS ZERO 


[ICICI IIR III IRI I III III RID ITI ISIS IIIS ISIS ISIS SIS SSIS SAIS SSSA IAA. 
;SIMULATE THE HEADER BEING READ 
MO ASTMPO,R2 
#151466, $TMPO 
#2037,$TMP1 PIII IRI 
#101367, $TMP2 :CRC PATTERN *** 


#16. ,R3 NUMBER OF BITS EACH WORD 
(R2)+,R4 HEADER WORD 1,2 OR 3 


A#MR1AAA!MCLK,RMMR10 

R4 

180$ 

AMRD , RMMR10 

RMMR10,RMMR1 (RO) ;LOAD RMMR1 
AMCLK,RMMR10 


RMMR10,RMMR1 (RO) RMMR1 
R3 ; SHIFT ost “6 BITS 


175$ 
R2 ,ASTMPO+4 zALL DONE ? 
170$ ;BRANCH IF NOT 


ITI TIT TLL LLL LLL LLL LLL chi cidicddcioisiied!  EKKKKKEKK 


;LOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROBES 
MOV #6,R2 


185$: MOV #17. ,R3 
;CLOCK UNTIL PROM STROBE ON 
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016542 190$: 
016542 012760 055401 000024 A#MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
016550 012760 051401 000024 AMR 1 AAA, RMMR1 (RO) ;LOAD RMMR1 
016556 000024 RMMR1 (RO) ,R4 STORE RMMR1 AT R4 
000040 MWC .R4 

195$ 

R3 

190$ 

230$ 
016576 195$: 


SEE IF ‘PLFS’’ IS ON 
016576 175777 BIC #*CPLFS,R4 
016602 1 


BNE 2108 
;CONTINUE IF LESS THAN 6 PROM STROBES 
DEC R2 


200$ 
001142 R4,SBDDAT ; SETUP ERROR 
002000 001140 #PLFS,$GDDAT 
001136 RO, $BDADR 
000024 001136 D gree) a 
230$ ; HEADER 


2008: 

: CLOCK UNTIL PROM STROBE OFF 
012760 055401 000024 #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
012760 051401 000024 AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 


000024 RMMR1 (RO) .R4 STORE RMMR1 AT R4 
000040 R4 


2108: 
: VERIFY NO HEADER ERROR IS SET 


000014 RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
177157 Osea laesccipcach cman 


001140 $GDDAT 
001136 RO, $BDADR 
000014 D tetera 
230$ HEADER ERROR SET 


016734 
DATA IN MEMORY OK 
016734 054116 001174 ne 7 eaiataies ; COMPARE 1 ST HEADER WORD 
054120 001176 CMP BUFFER+2,$TMP1 ;COMPARE 2 ND HEADER WORD 
oie 78a 001401 230$ 
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016754 
016756 


016756 


017110 
017116 
017122 
017126 


017130 
017132 


017150 
017150 


017200 
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104052 


111160 
012737 


012737 
012704 


004737 


000023 
sala 


00000 
017020 
017020 


177777 
000400 


023352 
017742 
024232 
017742 
024340 
017742 


024522 
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001226 


001120 
001131 
001122 
001124 


000010 


001410 
001436 
001434 


001402 


HEADER COMPARE TES 
;REPORT ERROR IN ONE OR MORE HEADER WORDS 
230$ ERROR 52 


FO III III IIR IK IIR III IK III IOI TTT TSS ISAS IN 


Z*TEST 23 ECC GENERATION TEST 


FD II III III IO IIIT ITSO III IASI INIA SIA ISI ISA IAISISISINSISISASIOSISSSSSSSIOSSS 


TST23: 
#23, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 


#20. ,$1CNT 320 ITERATIONS 

#1 , SERMAX ;ONE ERROR ALLOWED 
#T23,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T23,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK , SP ;LOAD THE STACK POINTER 

$BASE ,RO :RO = UNIBUS ADDRESS OF UUT 

TSTQUE ,R1 7R1_ = POINTER TO DEVICE 
#CLR,RMCS2(RO) ;CLEAR THE MASSBUS 

(R1),RMCS2(RO) ;SELECT UNIT 

OUTPUT BUFFER FOR WRITE DATA_CAMOMMAND 
#002037,RMDAO ;TRK 4, 31 

#1466,RMDCO :CYL=822. 

#FMT16!HCI,RMOFO :16 BIT FORMAT, IGNORE HEADER 


HBUFFER,R2 
R2,RMBAO DATA ADDRESS 
#*C256.+1,R3 
R3,RMWCO 
MOV #WD !GO,RMCS10 ;WRITE DATA COMMAND *** 
:FILL THE DATA BUFFER wit ALL. ONES 
MOV #177777 ,R4 ;DATA PATTERN ALL ONES 


ONE SECTOR DATA FIELD 
10$: 


EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
JSR PC,ENBSCH 


BR 20$ :GO TO 20$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
JMP 2208 


20$: 
FORCE SECTOR COMPARE USING SUBROUTINE 
JSR PC,SCTCMP 
BR 30$ :GO TO 30$ IF NO ERROR 
ERROR [RETURN HERE IF ERROR 
JMP 2208 


30$: 
SET ‘LOOKING FOR SYNC** USING SUBROUTINE 
JSR PC,SETLFS 
BR 
ERROR 
JMP 2208 


40$: 
;CLOCK THE SYNC PATTERN USING SUBROUTINE 
JSR PC, CLKSNC 





aoa 
NN 
ww 


AAW 


a mes mee ee es ee ee es a a Os es Os 6 Ht Mi Me Hi Mi Mi M1 Si Me Mi Mi Bi Mi mi Mi Mi Me M1 Mi Mi Mi Mi Me Me Ma ME Mi Me Mia Ms Me Mi. Mi 1. Hi St AtAcrc_Aracf 
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017210 


017214 
017220 
017220 
017224 


017224 


017252 
017254 


017274 


017274 


017322 
017324 


017344 
017350 


017350 
017354 
017356 
017362 


017362 
017366 


000403 
104000 
000137 


012702 
004737 


016037 


001410 
010037 


020227 
103721 


012702 


004737 


017742 


017746 


017766 


900024 
176157 
001140 
001140 


001136 
000024 
017742 
000040 
001140 
001136 
000040 
017742 
020074 


017764 


000011 


017766 
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001142 
001142 


001142 


001136 


001142 
001142 


001142 


001136 


ECC GENERATION TEST 


BR 50$ 
ERROR 
JMP 220$ 


;HEADER COMPARE IS INHIBITED FOR THIS TEST 

CLOCK THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFORMS 
[FOR EACH LEADING EDGD OF PROM STROBE 

: HEADER ARES, READ GATE (DATA TIMING SEQUENCER=200 OCTAL) 

: ENABLE CRC OUT 

: WRITE GATE 


50$: MOV #230$,R2 p**eeee POINTER TO WAVE FORM TABLE 


70$: 
;CLOCK BIT CLOCK (MCLK) UNTIL PROM STROBE COMES ON 
JSR PC,300$ 


80$: 
;PROM STROBE IS ON - VERIFY WAVEFORM 


RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT S$BDDAT 
#°C<ECRC!PDA!PHA!EECC>, SADDAT 

(R2)+,$GDDAT 

SGDDAT , SBDDAT 

90$ 


BEQ ;BRANCH IF RMMR1 OK 
ERROR y, we TIMING, SEQUENCER OUTPUT IS ONCORRECT 
#ROPR . $BDADR 
220$ 
BUS 
RMMR2 (RO) , SBDDAT STORE RMMR2 AT $BDDAT 
#*C1777, $BDDAT 
(R2)+,$GDDAT 
$GDDAT , $BDDAT 
B 100$ 
; ERROR- IS WRONG 
MO RO, $BDADR 
#RMMR2 , SBDADR 
53 TAG BUS WRONG 
220$ 


100$: 
:CLOCK BIT CLOCK TIL PROM STROBE RESETS 
JSR PC ,350$ 


;DATA TIMING SEQUENCER WRONG 


;BRANCH IF TAG BUS OK 


110$: 
; CONTINUE CHECKING THROUGH 4 PROM CYCLES 
ay" R2,4230$+16 pt Rk 
L 


CIO OR IOI IOC ICICI IOI IOI IDIOT IIIT TOI TOT TR TOT TOTO ROTATOR SAAS AIA SAAN 
VERIFY THAT DATA AREA COMES ON WITHIN 9 PROM STROBES 
1308: MOV #9. ,R2 ;R2=9 STROBES 


;CLOCK PROM STROBE ON 
JSR PC, 300$ 
140$: 








LRU RL RL ALARA RL ALR RR RRL ALLA RL ALAA AMNAMA ADA NANA aANMDE Ni DN Ni I MaANI AMIN NNN1 nN" 
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017366 
017372 
017376 
017400 
017400 
017404 
017406 


017410 


017440 


017440 
017444 


017444 


017512 
017512 
017516 
017522 
017524 
017526 
017530 
017530 


017546 
017550 


005302 
001347 


005002 


016003 


005202 
012760 


009024 
177377 
020074 


000400 
001142 
001136 

000024 


000400 


000024 
177357 
000400 


001142 
000400 


001136 
000024 


020074 
017766 


000024 
177357 
000020 


055401 
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001140 


001136 


001140 
001136 


000024 


ECC GENERATION TEST 
;PROM STROBE ON CKECK IF DATA AREA ON 


MOV RMMR1 (RO) ,R4 STORE RMMR1 AT R4 
BIC i 


BNE 16 
CLOCK PROM STROBE OFF 


150$: 
JSR PC, 350$ 
DEC R2 


BNE 130$ 
sERROR=DATA AREA DIDN'T COME ON 
MOV #PDA,$GDDAT 7 SETUP ERROR MESSAGE 
S$BDDAT 
RO, $8DADR 
alae 1,$BDADR 
2208 
160$: 


FIO IOISIOIOIOICIOIOIDIOINIOI IDIOT ORI ITI TI ITT OTT TR TOT TOTS TA IAISAI ASA SAAS A. 
;VERIFY THAT DATA AREA IS ON FOR 256 CYCLES 
1708 MOV #256. ,R2 


;VERIFY THAT DATA AREA IS ON AND ECC IS OFF 


RMMR1 (RO) ,R3 STORE RMMR1 AT R3 
#*C<PDA!EECC>,R3 


;DATA AREA IS ON 


, $BDAD 
#RMMR 1, SBDADR 
55 ;DATA ERROR NOT ON 
220$ 
180$: 


;CLOCK PROM STROBE OFF 
JSR PC ,350$ 
; CLOCK or STROBE ON 


SR PC, 300$ 
;CONTINUE TIL COUNT ZERO 
DEC Re 


BNE 170$ 
ECC SHOULD BE ENABLED WITHIN 4 CLOCK BITS 
R2 


182$: 
RMMR1(RO),R3 ;STORE RMMR1 AT R35 
#*C<PDA'EECC>,R3 
MEECC,R3 
190$ 
R2 
A#MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 





CZR! 


oO 
~ 
wD 


LAU AAA AMAA AMAA AMUN AAA AU AAA DI 4) I 
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017556 051401 000024 #MR1AAA,RMMR1 (RO) sLOAD RMMR1 
000007 #7 ,R2 
182$ 
001142 R3,$BDDAT 
000020 001140 #EECC, $GDDAT 
001136 RO, $BDADR 
000024 001136 #RMMR1 . SBDADR 
2208 
ECC CHARACTER FOR 32 BITS 
001174 V #STMPO,R2 
000020 MO #16. ,R4 


000024 -* Saiaciate: STORE RMMR1 AT RS 

000010 AMWD ,RS 
001002 205$ 
052703 000001 #B1T0,R3 


;BRANCH IF ECC BIT OFF (MWD INVERTED) 
017654 
017654 012760 055401 000024 #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
012760 051401 000024 4MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
005304 R4 
200$ 
R3,(R2)+ 
001200 crrek ae 
FD CII II IIIT II TTT TTT III RIT TT TT TTR RRR RRR RR 
; VERIFY ECC CHARACTER GENERATED 
022737 131177 001174 CMP #131177, $TMPO  =—_ ; ka KH 
001004 210$ 
175154 001176 he tale pte 


B 220 
131177 001200 #131177,$1MP2 =; R&A KKK 
175154 001202 MO | alee pe teane 


101351 


:ECC GENERATED INCORRECT 
020200 :GREAT ESCAPE 


RKKKKRE 
pRaKKKR 


017766 012737 000021 020070 300$: #17. ,3208 


CLOCK PROM STROBE ON 
017774 305$: 


WTO TU Lee re Tee eal ese terest eal eal eal ealealealesrealesheak cal eahealeal eal eal eal cal eal eal eal eal eal eal eah ah dha) oak ah ak al eal eal el al ah sl dl ad ak dh 
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017774 012760 055401 
012760 051401 
016037 


000024 
177737 
020070 
020070 
000040 
001136 
000024 


012737 000021 
020102 
020102 012760 055401 
020110 012760 051401 
020116 016037 000024 
2737 = 177737 
020174 
020176 
001140 
001136 
000024 
020172 


020174 
020176 


020200 
020200 


020202 
000024 


000024 
000001 
020230 012737 020244 
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000024 
000024 


026072 
020072 


001142 
001140 


001136 


020174 


000024 
000024 


020176 
020176 


001142 


001136 


001226 


001720 
001131 
001122 


ECC GENERATION TEST 


AMRIAA'MCLK,RMMR1(RO) ;LOAD RMMRI 
#MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
RMMR1(RO),330$ ;STORE RMMR1 AT 330% 
#*CWC, 3308 

sEXIT IF PROM STROBE ON 


SETUP ERROR MESSAGE 


30 

400$ 3 

PC 

0 MAX BIT COUNT 
0 ;RMMR1 CONTENTS 


#17.,370% 

;CLOCK PROM STROBE OFF 
AMRIAAA!MCLK,RMMR1(RO) :L JAD RMMRI 
AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 


RMMR1(RO),380$ ;STORE RMMR1 AT 380$ 
A at 


370$ 

355$ 

380$, $BDDAT 
$GDDAT 


CAN’ 'T CLEAR PROM STROBE 
360$: 


370$: . ;MAX BIT COUNT 
380$: . CONTENTS OF RMMR1 


400$: ;SUB-TEST EXIT POINT 


kik 
’ 
MRO SSRASERESES SES SEES EASES ERE SESE LES ESSER RR ASA LAA S ARRAS SASS SSS S| 


T*TEST 24 ECC DETECTION TEST 


FDIS OIIGISIIOIICISISIOIOIOIUIOIIOISIOINIOI UIE IOIOI IOI IOI III TOT TOT ITT TOI TOTTORI TOTTI TOT TOT 
TST24: SCOPE 

MOV #24,$TESTN 3zSET TEST NUMBER IN APT MAIL BOX 
#20. ,$ICNT 320 ITERATIONS 


#1, SERMAX ;ONE ERROR ALLOWED 
#T24,$LPADR ;LOAD LOOP ON TEST ADDRESS 





YM MA VMMAMYYIYV) 
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012737 020244 001124 #T24,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


T24: 
ASTACK, SP 4S es THE STACK POINTER 
SBASE ,RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 Ry = POINTER TO DEVICE 
000010 CLR, RMCS2(RO) Ss 
111160 MOVB (R1) ,RMCS2(RO) EL 
OUTPUT BUFFER FOR READ DATA COMMAND 
012737 001410 MOV #2037,RMDAO 
001436 #1466. RMDCO sCYL=822. TRK =4, SEC=31 
001434 #FMT16!HCI,RMOFO ; INHIBIT HEADER COMPARE 
BUF ONE ,R2 


R2,RMBAO 
001404 #*C256.+1 ,RMWCO 3256 WORDS 
001402 #RD!GO,RMCS10 ;READ DATA COMMAND 


20$: 
sEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE 
023352 JSR PC,ENBSCH 
BR 30$ ;GO TO 30$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
021222 JMP 190$ 


020354 30$: 

FORCE SECTOR COMPARE USING SUBROUTINE 
020354 024232 JSR PC,SCTCMP 
020360 BR 40$ ;GO TO 40$ IF NO ERROR 
020362 ERROR RETURN HERE IF ERROR 
020364 021222 JMP 190$ 
020370 


40$: 
SET “LOOKING FOR SYNC’* USING SUBROUTINE 
020370 024340 JSR PC,SETLFS 
000403 BR 50$ 
ERROR 
021222 JMP 190$ 


50$: 
:;CLOCK THE SYNC PATTERN USING SUBROUTINE 
024522 in +t cee 


ERROR 
021222 JMP 190$ 
FORO IOR IOI OICIOIOIOIOIOIOIOIOIOI IOI IOI TOIT AAI AIA SA SAISA ISA SIS IAS ISA ASA SAIS 
;HEADER COMPARE IS INHIBITED FOR THIS TEST 
3’ LOOKING FOR SYNC" SHOULD GO OFF WITHIN ONE CYCLE 
000002 55$: “y oe 5he ;ALLOW 2 PASSES THRU LOOP 
021334 60$: PC,350$ RESET PROM STROBE 
021226 PC; 3008 ;SET PROM STROBE 


70$: 


000024 RMMR1 (RO) ,R3 STORE RMMR1 AT R3 
002000 APLFS,R3 
= ;BRANCH IF LOOKING FOR SYNC OFF 


BNE 60$ 
;ERROR-LOOKING FOR SYNC ete NOT RESET BURING HEADER 
010337 001142 MOV R3,$BDDAT SETUP ERROR MESSAGE 


WOO Le Lealealesre rere leal egress eal eal eal eal eal valval eal cal eabeabeal val abeal ab ahah Ab Ab Adal ab ab Ab alah Al ab Abb Al Ab Ann RR hhh Ana 





CZRMKBO RMO3/2 DSKLS PRT 2 


CZRMKB.P11 


020514 


020514 
020520 
020524 


020544 


020546 
020554 


020560 
020566 


020710 
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012737 
010337 


104000 
000577 


012702 
012703 


012760 
012760 


0 
000241 


15:53 


175777 
001140 


021222 


000071 
021334 
021226 


000024 
002000 


002000 
001142 


175777 
001136 
000024 
021222 
021334 


024522 


000400 
000020 


057401 
052’01 


177446 


051401 
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001742 


001136 


001140 


001142 
001136 


000024 
000024 


ECC DETECTION TEST 
#*CPLFS,$BDDAT 
$GDDAT 


RO, $BDADR 
le , SBDADR 


4 
190$ 
80$: 


REE REKEEREREEEEEEEEREEKEKEEEAEEREEEKEEREEREEEEKKEEEEEEEEREE 


: LOOKING F OR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES 


#9.,R2 
85$: PC, * $865 :SET STROBE OFF 
PC, 300$ ‘SET PROM STROBE 


RMMR1 (RO) .R3 STORE RMMR1 AT R3 


#PLFS,R3 : 
+ ;BRANCH IF SYNC ENABLED 


BNE 85$ 
;ERROR-CAN'T LOOKING FOR SYNC DURING DATA AREA 
MOV A#PLFS,$GDDAT 
R3, $BDDAT 


#*CPLFS,$BDDAT 
SBDADR 


;PLFS NOT RESET AGTER HEADER 


; CAN'T SET PLFS DURING DATA 


90$: 
JSR PC,350$ sRESET PROM STROBE 
;CLOCK THE SYNC PATTERN USING SUBROUT IN NE 
JSR PC,CLKSNC 
BR 100$ 
ERROR 
190$ 
100$: 


IOI CROCS IORI OID IOI IO IOS IAAI AISA IASSA ISAS II ASISAS SSSI SAS 
;SIMULATE READ DATA 

MOV #256. ,R2 ;WORD COUNT 
A #16. ,R3 ;BIT COUNT 


AMR 1AAA!MRD!MCLK,RMMR1 (RO) ;LOAD RMMR1 
SPEARS ORS ;LOAD RMMR1 

115$ 

R2 

110$ 


FP II TI TI TITTIES TOTTI IT IIT TOTTI RI TTT TTR ERIN 


: SIMULATE ECC PATTERN 
MOV #177446, $TMPO FIRST ECC WORD 
#015457, $TMP1 SECOND ECC WORD 


120$: 
125$: 


SEQ 0100 





8 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12: 59 PAGE 101 SEQ 0101 
CZRMKB.P11 14-AUG-78 15:53 T24 ECC DETECTION TEST 


ano 
NN 
2z2 


ww 


020722 


020722 010460 R4 ,RMMR1 (RO) ;LOAD RMMR1 
020726 #MCLK ,R4 


020732 R4,RMMR1 (RO) ;LOAD RMMR1 
020736 042704 004000 AMCLK ,R4 


_— (RO) ;LOAD RMMR1 
125$ ;CLOCK A WORD 
#2,R2 
ASTMP1 ,R2 
BEQ 120$ ;CLOCK THE NEXT WORD 
;VERIFY DATA AREA AND READ GATE RESET 
000005 MOV #5 ,R2 


020770 021226 1408: PC, 300$ SET PROM STROBE 
020774 021334 J PC, 350$ CLEAR PROM STROBE 


000024 RMMR1 (RO) RS STORE RMMR1 AT R3 
000400 R3 


wy 


yv 
rn 


- 


BN 
177377 ; SETUP ERROR MESSAGE 


5¢ 
5¢ 
S¢ 
5¢ 
5¢ 
5¢ 
5¢ 
5¢ 
5¢ 
5¢ 
5¢ 
5¢ 
5 
5¢ 
5¢ 
5 
5¢ 
5 
5¢ 
5¢ 
5 
5 
5 


6 
000024 001136 
;DATA AREA WON'T RESET 


021050 


021050 000040 RMMR2(RO),R3  ; STORE RMMR2 AT R3 
176000 wc 777 RS 


001142 
001140 
001136 a 
000040 001136 ARMMR2 , SBDADR 
73 ;READ GATE WON'T RESET 


160$: 


CIO IIIT TOTO TIO TOIT TOTO I TOT ISI IIT II ITI IIA I IN 


VERIFY THERE ARE NO ECC ERRORS 


000014 MOV RMER1 (RO) ,R3 STORE RMER1 AT R3 
077677 #*C<DCK!ECH>,R3 

000000 001140 MO #000000 , $GDDAT 

001140 SapeAt AS 


170$ 
010337 001142 R3,$BDDAT 
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021140 010037 001136 RO, $BDADR 
062737 000014 001136 - > dati trait: 


104064 
000422 
021156 170$: 
J DIBA EEISREISIIISIISISIDIISISIISISIOIIIIIIIUIIIIIOIOIOIIIIOIIOIIIDIDIIOIITIOII IIIT TTT 
; VERIFY DATA BUFFER 
021156 012702 054116 MOV #BUF ONE ,R2 zDATA WAS STORED HERE 
177777 #177777 ,R3 EACH WORD ALL ONES 
000400 MO #256. .R4 
180$: (R2)+,R3 
BN 185$ 


ano 
NN 
22 


R4 
180$ 
BR 190$ sEXIT IF ALL THE LOCATIONS CHECKED 
185$: -(R2),$BDDAT  :SETUP ERROR MESSAGE 
MO R3,$GDDAT 
R2.$BDADR 
65 :DATA INCORRECT DURING READ 
000137 021440 190$: 400$ sGREAT ESCAPE 
021226 012737 000021 021330 3008: V #17. ,3208 
“CLOCK PROM STROBE ON 
021234 305$: 


021234 012760 055401 000024 AMRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
021242 012760 051401 000024 AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 
021250 016037 000024 021332 MOV RMMR1(RO),330$ ;STORE RMMR1 AT 330% 
2737 177737 021332 #*CWC 3308 
BN 310$ EXIT IF PROM STROBE ON 
021330 320$ 


305$ 
021330 001142 320$, $BDDAT SETUP ERROR MESSAGE 
oer tae 001140 


000024 001136 #ROPR - SBDADR 


400$ 
310$: PC 
320$: 0 
0 


021332 330S: 

021334 012737 000021 021434 350%: MOV #17.,370$ 
>CLOCK THE STROBE OF F 

021342 355$: 

021342 012760 055401 000024 #MR1AAA'MCLK,RMMR1(RO) ;LOAD RMMR1 

021350 012760 051401 000024 #MR1AAA,RMMR1 (RO) :LOAD RMMR1 


021356 016037 000924 021436 MO RMMR1(RO),380$ ;STORE RMMR1 AT 380$ 
021364 177737 021436 #*CWC, 380$ 
021372 360$ 


021374 021434 370$ 


Wealeahealealealealealeakcalealealeabcaleabvalcalvalvalvab 4h alealoab ab -aloalvalvalcab aval -ab-alvab bab 4b 4b 4b 4b 4b 4b 4b 4b 4 


MNAMMAMIMMAM AAW 
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355 
021436 001142 3808, $BDDAT 
001140 $GDDAT 
001136 RO, $BDADR 
000024 001136 fa . $BDADR 


400$ 
PC 


CAN'T CLEAR PROM STROBE 


0 
0214 000000 f 6s 0 
021440 : ;SUB-TEST EXIT POINT 


57 
57 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
z 
2! 
5 
2! 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


i 
[ 
f 
( 
! 
{ 
‘ 
3 
L 
i 
{ 
f 
{ 
{ 
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SEOSP: 


NOP 
001456 TSTQUE ,RO 
000902 #2.R 

001456 RO TSTQUE 


He 
021464 000137 004414 J READ 
021470 012737 001460 1$: MOV aTSTOQUE*2, TSTQUE 
.SBTTL END OF PASS ROUTINE 


EPI Tri Pitre iii ii tit titi itt i tii ttt ttt itis 

: + INCREMENT THE PASS NUMBER ($PASS) 

z*TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'" 
7 *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

:*IF THERES A MONITOR GO TO IT 

:*IF THERE ISN'T JUMP TO READY 


021476 SEOP: 


NMNININNINIAD @ 2 2 Ss 


PPPS A AAA AAAI III 
ce cae ce cd ceed cee cd cd ceed ce ced ced eed cd 


STSTNM ::ZERO THE TEST NUMBER 

STIMES :2ZERO THE NUMBER OF ITERATIONS 
SPASS ay word THE PASS NUMBER 
#100000, $PASS 2 DON'T ALLOW A NEG. NUMBER 
(PC)+ ; LOOP? 


$DOAGN :7YES 
pats rere : RESTORE COUNTER 


021544 ,65$ 23 TYPE ASCIZ STRING 
021542 0004 BR 64$ GET OVER THE ASCIZ 
<12><15>/END PASS’ #/ 
021562 


021562 013746 001230 SPASS ,~(SP) z:SAVE SPASS FOR TYPEOUT 
7-TYPE PASS NUMBER 
104405 :2G0 ys op, pi ay! ASCII WITH SIGN 
104401 021576 ,67$ 2 TYPE ASCIZ STRING 
000421 BR 66$ GET OVER THE wasclz 
;;67$: 7 TOTAL ERRORS SINCE LAST REPORT / 


013746 001126 SERTTL,~(SP) +3 SAVE SERTTL FOR TYPEOUT 
AL _ NUMBER OF ERRORS 
7:GO TYPE--DECIMAL ASCII WITH SIGN 
001217 ats: CARRIAGE RETURN, LINE FEED 
001126 CLEAR ERROR TOTAL 
000042 $GET42: 7:GET MONITOR ADDRESS 
Q $ BRANCH IF NO MONITOR 
::CLEAR THE WORLD 
SENDAD: J ::GO0 TO MONITOR’ 
:2:SAVE ROOM 


t:ACT11 


a(PC)+ 7 RETURN 
READY 


OMAP AD AMAT UT 
et ok od od od od od od od 8) 
SaScsyeyyyvyew€ 

WH —S OONOAMURWI 
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5165 021702 377 
5166 021706 


2 
15:53 


377 


B 
MACY11 30A(1052) 18-AUG-78 12:59 
END OF PASS ROUTINE 


000 SENULL: .BYTE <-1,-1,0 
-EVEN 


9 
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7;¢NULL CHARACTER STRING 


SEQ 0105 





C2 
C2 
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021720 
021724 
021730 
021734 


021740 


021762 
021766 


022006 
022012 
022016 


022026 


022032 
022034 
022035 


022050 


104414 
032777 
001402 
000137 


104401 
104401 
013746 


013746 


104403 
003 
000 

005037 

113737 

0014 


104401 
013746 


104403 
003 


000 
104401 
013746 
104403 

006 

001 
005737 
001575 


104401 
105037 


020000 
022436 


001217 
022452 
001234 


022442 
001226 
022460 
022442 


022444 
001130 


022470 
022444 


022477 
001132 


022444 


001217 
022450 


. 
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157236 


022442 


022444 


-SBTTL SUBROUTINES 


BD I III IIIT III IIIT IIS IAT IOI II ISI IIIS SII SII SI SIISI ISAS SISISSS ISIS ISSAC 


-SBTTL ERROR TYPEOUT ROUTINE 


3*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
:*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


«te 
-UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
; #PRINTED ON THE FIRST LINE; 
.ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 
: ONE OR MORE SUCCEEDING LINES; 
-PAIRED LINES OF ERROR HEADERS AND ERROR DATA 
+ RARE PRINTED AFTER THE ERROR MESSAGE. 


ERRTYP: 
SAVREG 
BIT #SW13,aSWR pa TYPEOUTS?? 
BEQ 1$ NO!! 


sis 


JMP 21$ 
; TYPE UNIT NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
1$: TYPE $".LF 


TYPE -ERTYOO 3 TYPE ‘‘UNTA*' 
MOV $UNIT ,-(SP) 33SAVE SUNIT FOR TYPEOUT 
7-TYPE UNIT NUMBER 
TYPOS 3:GO TYPE--OCTAL ASCII 
. ie TYPE 3 DIGIT(S) 
;;SUPPRESS LEADING ZEROS 
TSTN“B ;LOAD TEST NUMBER FOR 
$STESTN, TSTNMB 
TYO4 i TYPE ''TSTA’’ 


,ERTY 
TSTNMB, -(SP) :7 SAVE TSTNMB FOR TYPEQOUT 
7: TYPE TEST NUMBER 
3:GO_TYPE--OCTAL ASCII 
si TYPE 3 DIGIT(S) 
; SUPPRESS LEADING ZEROS 
ERRNMB ;LOAD ERROR NUMBER FOR 
$1TEMB, ERRNMB ; TYPEOUT 
2s * SKIP IF ~ ERROR CALLED 
~ERTYO2 TYPE ‘'ERRA 
ERRNMB , ~ (SP) t2SA VE ERRNMB FOR TYPEOUT 
7 TYPE ERROR NUMBER 
3:60 epeysty ASCII 
3 ii TYPE 3 DIG 
: SUPPRESS CEADING ZEROS 
:TY PE ‘PC=" 


-ERTYO3 
$ERRPC ,~(SP) SAVE SERRPC FOR TYPEOUT 
TYPE PROGRAM COUNTER 
3:GO TYPE--OCTAL ASCII 
a 6 DIGIT(S) 
BVTE 1 TYPE LEADING ZEROS 
GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
3$: had _— WAS ,AN ERROR CALLED? 


NO! 
TYPE - SCRLF i VES-TYPE CRLF 
CLRB BOTFLG [CLEAR BOT FLAG 





CZ 
CZ 
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5223 022054 105037 022451 CLRB CHRCNT CLEAR CHARACTER COUNTER 
5224 022060 013700 022444 MOV ERRNMB ,RO :RO POINTS TO FIRST OF 
5225 022064 006300 ASL RO ;FOUR ENTRIES IN ERROR 
5226 022066 006300 ASL RO ; TABLE 
5227 022070 006300 ASL RO 
5228 022072 062700 001522 ADD A#SERRTB-8. ,RO 
2560 022076 011001 MOV (RO) ,R1 car TO ERROR MESSAGE 
5231 022100 001507 BEQ 12$ BRANCH IF NO ERROR MESSAGE 
5232 ; TYPE THE ERROR MESSAGE 
5233 022102 012102 4$: MOV (R1)+,R2 ;R2=ADDRESS OF MESSAGE STRING 
5234 022104 001505 BEQ 12$ BRANCH IF END OF MESSAGE 
5235 022106 010237 022254 MOV R2,11$ ;LOAD ADDRESS OF STRING 
5236 022112 005037 022446 CLR BOTADR CLEAR BOT ADDRESS 
5237 022116 112203 5$: MOVB (R2)+,R3 END OF STRING?? 

5238 022120 001454 BEQ 10$ YES! 

5239 022122 122703 000015 CMPB ACR,R3 : CARRIAGE RETURN? ? 

5240 022126 001003 BNE 6$ :NO! ! 

5241 022130 105037 022451 CLRB CHRCNT i VES-CLEAR CHAR COUNT 
5242 022134 000770 BR 5$ GET NEXT CHARACTER 

5243 022136 122703 000012 6$: CMPB ALF ,R3 LINE FEED?? 

5244 022142 001765 BEQ 5$ 3; YES-GET NEXT CHARACTER 
5245 022144 122703 000011 CMPB HHT ,R3 sHORIZONTAL TAB?? 

5246 022150 001007 BNE 8$ sNO!! 

5247 022152 105237 022451 7$: INCB CHRCNT sADJUST CHARACTER COUNT 
5248 022156 132737 000007 022451 BITB #7, CHRCNT 

5249 022164 001372 BNE 7$ 

5250 022166 000407 BR 9$ 

5251 022170 105237 022451 8$: INCB CHRCNT ; INCREMENT CHARACTER COUNT 
5252 022174 122703 000040 CMPB #' ,R3 3 SP; ACE?? 

5253 022200 001002 BNE 9$ zNO! 

5254 022202 010237 022446 MOV R2,BOTADR ‘SAVE eg 5OF SPACE 
5255 022206 122737 000100 022451 9$: CMPB #64. ,CHRCNT 7 END OF LINE?? 

5256 022214 103340 BHIS 5$ NO!! 

5257 022216 013704 022446 MOV BOTADR ,R4 GET "ADDRESS OF LAST SPACE 
5258 022222 001007 BNE 90$ BRANCH IF SPACE DETECTED 
5259 022224 104401 001217 TYPE -SCRLF : TYPE CRLF 

5260 022230 105037 022451 CLRB CHRCNT CLEAR CHARACTER COUNT 
5261 022234 013702 022254 MOV 11$,R2 7SET UP R2 FOR TESTING 
5262 022240 000726 BR 5$ 

5263 022242 105044 90$: CLRB -(R4) sREPLACE SPACE 

5264 022244 112737 177777 022450 MOVB #-1 ,BOTFLG :SET BOT FLAG 

5265 022252 104401 10$: TYPE ; TYPE ERROR MESSAGE STRING 
5266 022254 000000 11$: . WORD STRING ADDRESS GOES HERE 
5267 022256 105737 022450 TSTB BOTFLG WAS STRING TRUNCATED?? 
5268 022262 001707 BEQ 4$ :NO!! 

5269 022264 104401 001217 TYPE - $CRLF 7: YES-TYPE CRLF 

5270 022270 105037 022450 CLRB BOTFLG ;CLEAR BOT FLAG 

5271 022274 105037 022451 CLRB CHRCNT ;CLEAR CHARACTER COUNT 
5272 022300 013702 022446 MOV BOTADR ,R2 SETUP R2 FOR TESTING 
5273 022304 010237 022254 MOV R2,11$ ;SETUP 11$ FOR TYPING 
5274 022310 112742 000040 MOVB #' ,-(R2) RESTORE SPACE 

5275 022314 105722 TSTB (R2)+ ;RESTORE R2 

5276 022316 000677 BR 5$ TYPE REST OF STRING 


5277 022320 12$: 
5278 ; TYPE ERROR HEADER AND ERROR DATA 
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0224 
022440 
022442 


022451 
022452 
0224 


022505 
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047125 
020054 
000043 
020054 
000 
054 


000 
040 


000006 
022352 


022505 
001217 


052111 
042524 


051105 
050040 
000040 
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000043 
052123 


021522 
036503 


es 


ERROR TYPEOUT ROUTIN 


13$: 


ERTYOO: . 
ERTYO1: 


ERTYO2: . 
ERTYO3: 
ERTYO4: . 


-EVEN 


2(RO) ,R1 
21$ 


17$ 
@(R4)+,-(SP) 
19$ 
@(R4)+,-(SP) 


19$ 
@(R4)+,-(SP) 
(R4) 


20$ 
ERTY04 
16$ 

- $CRLF 
14$ 


PC 


QUNI T#a 
a, TEST#a 


a, ERR#a 
a, PC=a 
aa 


E 9 
—— PAGE 108 


;R1 POINTS TO ERROR HEADER TABLE 
; BRANCH ~# ee HEADER 


; (ASSUME NO DATA 

:R2 POINTS 10 DATA ADDRESS TABLE 
:R3 POINTS TO F T TABLE 

[PUT HEADER ADDRESS FOR TYPE 
[BRANCH IF END OF HEADERS 

; (ASSUME END OF DATA) 


;HEADER ADDRESS GOES HERE 
DATA WITH HEADER?? 
-NO!! 


;R4 POINTS TO DATA ADDRESS 
:R5 POINTS TO FORMAT 

;WHAT KIND OF DATA?? 
;BINARY 

sOCTAL 

; DECIMAL 


:MORE DATA?? 
NO! 


i YES-TYPE 2 SPACES 
SAND CONTINUE 


[TYPE ONE BLANK LINE 
;BEFORE NEXT HEADER 


; TEST NUMBER ’ 


;ERROR NUMBER 

“BEGINNING OF TEXT ADDRESS 
;BOT FLAG 

; CHARACTER COUNT 
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-SBTTL CLOCK SUBROUTINES 
;ROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P) 


SEIS EIEIO ISIS ISISINIEIIICIIIIOIUIIICIUIIOICI IOS ITT TOTS 
022510 
ERRVEC ,-(SP) 3 ;PUSH weer ON STACK 
000006 ERRVEC+2,-(SP) PUSH ERRVEC+2 ON STACK 
022606 000004 #10$,ERRVEC ;LOAD 04° TRAP VECTORS 
000300 000006 #PR6,ERRVEC+2 


: A Kwi1-P CLOCK IS PRESENT - GO TO 10$ IF NOT PRESENT 
156740 TST @$LPCSR TEST FOR P CLOCK 
022750 001526 #PCLOCK,CLOCK  ;LOAD SUBROUTINE ADDRESS 
023072 #PSTOP, STOP ;LOAD STOP ADDRESS 
023036 #PCOUNT,@$LPVEC :LOAD P CLOCK INTERRUPT VECTOR 
000300 #PR6, ASLPVEC+2 
001516 156714 SLLVEC+2,@$LLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
156712 ASLLVEC+2 


30$ 
022614 10$: #15$, (SP) ;DUMMY RTI ADDRESS 
RESTORE PRIORITY 


022614 15$: 
NO P CLOCK=SEE IF L t .OCK IS PRESENT-GO TO 2O$ IF NOT PRESET 

022614 022672 000004 MOV #208, ERR VEC CHANGE 04 TRAP VECTOR 

a$LLCSR :TEST FOR L CLOCK 

#LCLOCK,CLOCK LOAD SUBROUTINE ADDRESS 

#LSTOP, STOP ;LOAD STOP ADDRESS 

#LCOUNT ,@$LLVEC ;LOAD L CLOCK INTERRUPT VECTOR 

#PR6, ASLLVEC+2 

156622 SLPVEC+2,a$LPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
156620 ot @$SLPVEC+2 


30$ 
022700 20$: #25$, (SP) ;DUMMY RTI ADDRESS 
RESTORE PRIORITY 


25$: 
NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS 
6 CLR CLOCK LEAR SUBROUTINE ADDRESS 
0 001506 oy Pe »$LPVEC:CLEAR P CLOCK INTERRUPT VECTOR 
0 bs 001514 A$LLVEC+2,$LLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
2 


00152 
00151 
ete 


001 $LLVEC+2 
000002 000004 #2,4(SP) CHANGE RETURN ADDRESS 


30$: 
012637 000006 (SP)+, ERRVEC+2 :POP STACK INTO ERRVEC+2 
012637 000004 es 3 3POP STACK INTO ERRVEC 


022746 000207 RTS 
ROUTINES TO START THE CLOCK (KW11-L OR KW11-P) 


CDROOT IIIT TTI IO 


022750 012777 177777 156526 PCLOCK: MOV #-1 ,a$LPCSB ;LOAD COUNT SET BUFFER 
012777 000135 156516 MOV #135,a$LPCSR ;LOAD CONTROL REGISTER 
000403 BR PLCLK ;GO TO COMMON CODE 


012777 000100 156516 LCLOCK: MOV #100, a$LLCSR ;LOAD CONTROL REGISTER 


i a i ne a a mm em ee ee ee cl a i i a, a, a a a i i i, a i ll ee, ee, a a a, ee 
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022774 
023000 


023064 

023070 

025072 005077 

023076 000402 
005077 
013746 
012746 
000002 

023116 000207 


023120 
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001522 


001520 
177437 
000300 


000240 
023034 


000021 


177777 
000021 


001524 


156404 


156406 


001520 
023116 
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001522 


001522 
001524 


023120 012760 000040 000010 


023126 111160 
023132 012760 


000010 
000001 


000024 


CLOCK SUBROUTI 
PLCLK: : TIME 
(SP)+,R5 


#30$,-(SP) 


30$: 
40$: PC 


G 9 
apo Pt 12:59 PAGE 110 


CLEAR TIMER COUNT 

:;PUSH OLD PSW AND PC ON STACK 
37SAVE THE PSW IN R5 

7 SAVE —— 


MASK 
Is F PRIORITY TOO HIGH?? 
7;PUT NEW PS ON STACK 


;sPUT NEW PC ON STACK 
;;POP NEW PC AND PS 


ROUTINES TO HANDLE CLOCK INTERRUPTS (KW11-L OR KW11-P) 


PCOUNT: 

LCOUNT: 
#17.,TIME 
10$ 


#-1 ~ TIME 
10$: #17. ,WATCH 
20$ 


WATCH 
20$: 


ADD 17MS TO ELAPSED TIME 
;BRANCH IF NO OVERFLOW 
RESTORE MAXIMUM COUNT 
;DECREMENT REMAINING TIME 
BRANCH IF POSITIVE 
;CLEAR REMAINING TIME 
;RETURN TO USER 


ROUTINES TO STOP THE CLOCK (KW11=-L OR KW11-P) 


@$LPCSR 
PLSTP 


@$LLCSR 


PSTOP: CLR 
BR 


LSTOP: CLR 


PLSTP: 
MOV $PSW,-(SP) 
MOV #10$,-(SP) 
RTI 


RTS PC 


10$: 


;STOP P CLOCK 
;GO TO COMMON STOP CODE 


;STOP L CLOCK 
3zPUT NEW PS ON STACK 


:zPUT NEW PC ON’ STACK 
:zPOP NEW PC AND PS 


-SBTTL SET VOLUME VALID SUBROUTINE 
THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID, 


RETURNING WITH THE DRIVE STILL_IN DIAGNOSTIC MODE. 


THE SUBROUTINE 


RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ER 


“CALL: JSR 
: BR 
ERROR 


PC, SETVV 
tT 


V A#CLR,RMCS2(RO) 
MOVB (R1) ,RMCS2 (RO) 


MOV ADMD , RMMR1 (RO) 


ROR IS 
:DETECTED, IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 
LL. 


JUMP TO SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 


CLEAR THE MASSBUS 
;SELECT UNIT 


;LOAD RMMR1 





SEQ 0110 


aa 
NN 
DD 


CR RR RR RP PPA PR AAPA PAPA FAA PA A AAAA AAA AAA AAAA AM AAMAKMAO AKA AAA ADAOOOCO 
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023140 012760 001001 000024 MOV #DMD ! MUR ,RMMR1 (RO) LOAD RMMR1 
023146 012760 000000 000014 #0 ,RMER1 (RO) LOAD RMER1I 
023154 012760 000000 000042 #0 ,RMER2 (RO) LOAD RMER2 
023162 012760 000023 000000 #PACACK!GO,RMCS1 (RO) ;LOAD RMCS1 
023170 016037 000012 001142 RMDS(RO) ,S$BDDAT ;STORE RMDS AT SBDDAT 
2737 177677 001142 AT 
BRANCH IF VOLUME VALID SET 
; SETUP FOR ERROR MSG 
001136 
001140 
2(S ;MOVE RETURN ADDRESS TO ERROR 
000000 ;WRITE ERROR NUMBER 
001174 #PACACK , STMPO 
023246 000207 10$: PC RETURN 


-SBTTL SET OFFSET MODE SUBROUTINE 


THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 
;MODE SETS. THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 
; SUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
;RETURNS TO THE SECOND WORD FOLLOWING THE CALL 


‘CALL: JSR PC, SETOM JUMP TO SUBROUTINE 
: BR 2? RETURN HERE IF NO ERROR 
: ERROR RETURN HERE IF ERROR 
023250 SETOM: 
023250 012760 001001 000024 #DMD ! MUR ,RMMR1 (RO) :LOAD RMMR1 
023256 012760 000000 000014 #O.RMER1(RO)  ; LOAD RMERT 
023264 012760 000000 000042 #O.RMER2(RO)  ; LOAD RMER2 
023272 012760 000015 000000 #OFFSET!GO,RMCS1(RO)  ;LOAD RMCS1 


016037 000012 001142 RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
177776 001142 #*COM, $BDDAT 
10$ ;BRANCH IF OFFSET ON 


001140 


001136 
#2, (SP) ;MOVE RETURN ADDRESS TO ERROR 
¢ 112776 000111 000000 0s #111,a(SP) ;WRITE ERROR NUMBER 
10$: 
023350 000207 RTS PC ;RETURN TO USER 
-SBTTL ENABLE SEARCH SUBROUTINE 


CD RK IRE IKERKE KE E KER E EE EEEEEKEREREEEERERRR ER 


023352 ENBSCH: 


AAKRAKAKAAKRAKAAKAKAKAAKRKAAHAAKRAAKRAKAAKAAAGAARAAAHAAAHOAHAHAAAHAOHOAAAAAAAS 
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an 
La hie 
DD 


oo 


; THE REGISTER OUTPUT BUFFER SHOULD CONTAIN 
RMDAO DESIRED SECTOR AND TRACK ADDRESS 
POAT. ECT. WC] ADDRESS 


BUFFER ADDRESS 
: RMWC WORD COUNT 
; FUNCTION CODE 
NOTE: OFFSET IS NOT ENABLED WHEN USING THIS SUBROUTINE 


IIRC IOI IOI III IOI IOI IOI TTT TTT TOT AIA IISA IAAISIIAISIIISISASISSSISSS SSS. 
SET VOLUME VALID 
7FIRST,CLEAR -SET DIAGNOSTIC MODE-SYNCHRONIZE 
[PROM STROBE 
023352 012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
023360 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


023364 012760 000001 000024 ADMD,RMMR1(RO) ;LOAD RMMR1 
023372 012704 900041 #33. ,R4 ;ALLOW UP TO 33 BIT CLOCLS 
3TO SYNC PROM STROBE 


023376 
023376 012760 005001 000024 ADMD !MUR!MCLK,RMMR1(RO) ;LOAD RMMR1 
012760 001001 000024 ADMD ! MUR ,RMMR1 (RO) ;LOAD RMMR1 


000024 RMMR1 (RO) .R5 STORE RMMR1 AT R5 
000040 a ee ;WAIT FOR PROM STROBE TO COME ON 


;PROM STROBE WONT SET 
001136 


001140 wucs 
000000 #30,a(SP) 
024230 MP 60$ :REPROT ERROR 
012760 005001 000024 ADMD !MUR!MCLK,RMMR1 (RO) ; LOAD RMMR1 
012760 001001 000024 #DMD !MUR,RMMR1 (RO) :LOAD RMMR1 


000024 RMMR1 (RO) .R5 STORE RMMR1 AT R5 
000040 ta R5 ;WAIT FOR PROM STROBE TO GO OFF 


BN 6$ 
001136 ;PROM STROBE WONT RESET 
001136 nm 
001142 


Ce ROR FR RPA PAPA AAPA PAPA MAPA PAA AAA MAMA PA AAA A MAP MA AMA MM AMAA AMM AAACOAOAOAOAOAOO 


623550 062716 000002 #2, (SP) 
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023554 


023574 


023602 
023610 
023616 
023624 


023712 
023720 
023726 
023734 


023742 
023750 
023756 
023764 


023772 


112776 
000137 


012760 
012760 


012760 
012760 
012760 
016037 

2737 


013760 
013760 
013760 
013760 
013760 


012760 
012760 
012760 
013760 


012737 
004777 


000062 
024230 


001005 
001001 


000000 
000000 
000023 


000012 
177677 


000022 


001410 
001436 
001434 
001404 
001406 


041401 
000000 
000000 
001402 


000310 
155522 
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000000 


006024 
000024 


000014 
000042 
000000 
001142 
001142 
001136 
001140 


000000 
001174 


000006 
000034 
000032 
000002 
000004 


000024 
000014 
000042 
000000 


001524 


NABLE SEARCH SUBROUTINE 


MOVB #62 ,a(SP) 
JMP 60$ 


7$: 
:SECOND, CLOCK INDEX PULSE TO 1. CLEAR FORMAT CHANGE FLOP 
: 2. CLEAR RTC FLOP 


MOV ADMD !MUR!MI,RMMR1(RO) ;LOAD RMMR1 
MOV ADMD ! MUR ,RMMR1 (RO) ;LOAD RMMR1 


#0 ,RMER1 (RO) ;LOAD RMER1 
#0,RMER2 (RO) ;LOAD RMER2 
#PACACK !GO,RMCS1 (RO) ;LOAD RMCS1 


RMDS(RO), on STORE RMDS AT S$BDDAT 
Soa , SBDDAT ; VOLUME VALID SHOULD BE SET 


;SETUP ERROR MSG 
# WRITE ERROR NUMBER 
#100, @a(SP) ; 
#PACACK, $TMPO 
60$ 
10$: 
LIAR RRR RRR RR EKER EERE KEE EERE RIKER HERE EKER REE REE REE 
;LOAD REGISTERS 
RMDAO,RMDA(RO) ;LOAD RMDA 
RMDCO,RMDC(RO) ;LOAD RMDC 
RMOFO,RMOF (RO) ;LOAD RMOF 
RMWCO,RMWC(RO) ;LOAD RMWC 
MOV RMBAO,RMBA(RO) ;LOAD 
IARI ROI OIOIOIOIOI CII I II OITTITTTOTOTIOT SSIS SASS SSSI SISA A 
“ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE 
ADMD 'MUR 'DBEN! MOC ,RMMR1 (RO) ZLOAD RMMR1 
#0,RMER1 (RO) ;LOAD RMER1 
#0,RMER2 (RO) ;LOAD RMER2 
MOV RMCS10,RMCS1(RO) ;LOAD RMCS1 
IT IT ITT ITIL TET ELLE LLL LLL ie 
“WAIT FOR ‘RUN AND GO"’ TO SET 
MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 


20$ JSR PC, acLOCk START THE CLOCK 


SEQ 0113 


RAMA ARAMA AAAAAAAAAAAAMANAMAAA AMAA MAA ABAAAAKRAAACAACOAOOCOOCAO 
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024070 


024074 


024116 


024120 
024126 
024140 
024140 
024146 


024154 
024156 


024230 


024230 


016037 
2737 


112776 
000460 
004777 


012704 
012760 
012760 
005304 
001370 


012760 
012760 


012704 


012760 
012760 


112776 


000207 


000024 
137777 
001524 
155474 


155434 
000021 


141401 
041401 


041001 
041401 


000043 
151401 


051401 


000024 
173777 


001136 
000024 
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001142 
001142 


001140 
001136 
000000 


000024 
000024 


000024 
000024 


000024 
000024 


001140 
000000 


E SEARCH SUBROUTINE 


RMMR1 (RO) , SBDDAT 


STORE RMMR1 AT S$BDDAT 
ean 


zANY TIME LEFT? 
7 YES-WAIT 

;STOP THE CLOCK 
;SETUP ERROR MSG 


;WRITE ERROR NUMBER IN 
#101, a( Spry ZUSER'S CALL - 
60$ 
30$: 
PC,a@STOP STOP THE CLOCK 
DDSI ICISIIOIIOIIIOISIO IOI IOI IITA IIIS AI ISA IIAIISASSI SSSA IAS. 
:STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS) 
MOV 17. ,R4 3R4=CLOCK COUNT 
40$: 
#DMD ! MUR ! DBEN! MOC ! DBCK,RMMR1 (RO) :LOAD RMMR1 
nS aoe (RO) ;LOAD RMMR1 
40$ 
Peri titittitiiiittttitititiiiiiiiitiii iii iii ii 
:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER TO PASS 
;TEST AT LOCATION 166 
MOV #DMD !'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD 'MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
FRI ICICI CIOS I IORI ITAA IAI IIIA ISISIAIS SSIS SSIS SSSI SASS SSSA 
sSTEP SEQUENCER (35 CLOCKS) AND VERIFY SEARCH IS ENABLED 
MO #35.,R4 sR4=CLOCK COUNT 
50$: 
ADMD 'MUR !DBEN! MOC ! DBCK!DTO,RMMR1 (RO) ;LOAD RMMR1 
~ alienate taliincins tlt (RO) ;LOAD RMMR1 
50$ 


RMMR1 (RO) , SBDDAT STORE RMMR1 AT S$BDDAT 
aa ncaa ;SEARCH SHOULD BE ENABLED 


; SETUP ERROR MESSAGE 


WRITE ERROR NUMBER 


#2, (SP 
#102,a(SP) 


KKK EEE KEE KKK EK KKEKEEKEKKEKEKEKEK KEE KEEEKKEEEKEKEK 


60$: 


RETURN Me USER 
RTS PC 


SEQ 0114 


AAAKAAKRKAAKADAKRAKRAKRAKAAHAAAAHAAHAAKAAAHAAHAAAAHAAAAHAAAAAAAAHAAAAHAAAAAAMAAH 
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-SBTTL SECTOR COMPARE SUBROUTINE 
SECTOR COMPARE SUBROUTINE 


THIS SUBROUTINE CONTINUES THE EXECUTION OF A DATA COMMAND 
FROM WHERE SEARCH HAS BEEN ENABLED TO WHERE SECTOR COMPARE 


353 St. 


024232 SCTCMP: 


FD II III III IK II TIKI ERIN 
;SET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP 
024232 012760 051405 000024 MOV ADMD ! MUR ! DBEN! MOC !DTO!MI ,RMMR1 (RO) ;LOAD RMMR1 
024240 012760 051401 000024 MOV ADMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
;WAIT AT LEAST 4 MS FOR "RETURN TO CENTER LINE’ ONE SHOT TO SET 
024246 012737 000006 001524 MOV #6,WATCH SET WATCHDOG TIMER VALUE 
004777 155246 PC, aCLOCK START THE CLOCK 
005737 001524 : WATCH 
001375 10$ 
004777 155236 JSR PC ,a@STOP ;STOP THE CLOCK 
eed TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO 
024272 012760 051441 000024 MOV #DMD !MUR ! DBEN! MOC !DTO!MS ,RMMR1 (RO) ;LOAD RMMR1 


024300 012760 051401 000024 MOV #DMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
WITH SECTOR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP 


024306 012760 051403 000024 ADMD ! MUR ! DBEN! MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
024314 012760 051443 000024 ADMD !MUR!DBEN!MOC!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 
024322 012760 051403 000024 ADMD ! MUR ! DBEN!MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
024330 012760 051401 000024 #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
ICR IOI CROCCO IOI IOI OITA IIIA IAIAIASISISI ISIS ISI ISIS SINS SSA ISAS A. 
;RETURN TO USER 
024336 000207 RTS PC 
SIO IOICIOIIOIOICIOIOI III IIIT TAS AA IANA ISIS IIIS IIIS ASSIS SISIASIS IAM 
“SBITL SET LOOKING FOR SYNC SUBROUTINE 
: THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER 
TASSUMING SEARCH IS ENABLED,TO THE POINT WHERE ‘PLFS'' IS ACTIVE 
024340 
024340 
024340 012760 055401 000024 MOV ADMD ! MUR ! DBEN!MOC!DTO!MCLK,RMMR1 (RO) ;LOAD RMMR1 
024346 012760 051401 000024 MOV #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


024354 016005 000024 MOV RMMR1 (RO) ,R5 ;STORE RMMR1 AT R5 


SETLFS: 
vis BIT CLOCK UNTIL PROM STROBE SETS 


AAAAAKAAAARAARAAAAAAAAAAAAADRAAGSAARASAARSARPASRPPSPSRSSSSPTPAAAAAGRA 
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024360 032705 000040 BIT MWC RS 
024364 001765 BEQ 10$ 
SET UP DATA SEQUENCER TO LOCATION 11. WHERE PLFS WILL SET 
024366 012704 000260 MOV #176. ,R4 ;MAX NUMBER OF BIT CLOCK 
024372 208: 
024372 055401 #DMD !MUR ! DBEN! MOC !D1T0!MCLK,RMMR1 (RO) ;LOAD RMMR1 
051401 #DMD!MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


000024 RMMR1 (RO) RS ;STORE RMMR1 AT R5 
002000 a aS RS EXIT IF PLFS IS SET 


ERROR IF COUNT EXHAUSTED 


(SP) : 
#35, a(SP) SCANT SET PLFS 


024440 30$: 
>STEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE 
> IS DETECTED. 
024440 016005 000024 MOV RMMR1(RO),R5 STORE _RMMR1 AT RS 
024444 000040 BIT #wWC RS 
024450 001007 40$ 
024452 055401 000024 WMRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
024460 051401 000024 #MR1AAA,,RMMR1 (RO) ;LOAD RMMR1 
024466 50$ 
024470 
024470 016005 000024 MOV RMMR1(RO).RS STORE RMMR1 AT R5 
024474 000040 #WC RS 
024500 50$ 
024502 055401 000024 #MRIAAA'MCLK,RMMR1(RO) :LOAD RMMR1 
024510 051401 000024 #MR1AAA ,RMMR1 (RO) ;LOAD RMMR1 
000764 40$ 


50$: 
024520 PC sEXIT 


-SBTTL CLOCK SYNC SUBROUTINE 


FL RIKKI KEKE EKER EEE REE EEE K 


THIS SUBROUTINE WILL SIMULATE THE HEADER AND DATA SYNC 
PATTERN BEING READ 


024522 CLKSNC: 
VERIFY THAT 'PLFS’* IS ON 


024522 016004 000024 MOV RMMR1 (RO) ,R4 STORE RMMR1 AT R4 
024526 002000 BIT APLFS,R4 ;LOOK FOR SYN SET ? 
024532 001023 BNE 10$ BRANCH IF SO 


64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
64 
6 
64 
64 
64 
6 
6 
64 
64 
64 
6 
64 
64 
6 
6 
& 
6 
& 
6 
& 
6 
6 
fod 
6 
6 
6 
fod 
6 
6 
6 
6 
68 
6 
6 
6 
6 
6 
6 
6! 
6! 
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0247 

024740 
024744 
024750 


024754 


024770 


006004 
103002 
052705 


010560 
052705 


010560 
042705 


010560 


005337 
001354 


000207 
000000 


055401 
051401 
000624 


014400 
000020 
051401 


002000 
000024 
004000 
000024 
004000 


000024 
024770 


MACY11 30A(1052) 


001142 
001140 


001136 


024770 
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CLOCK SYNC SUBROUTI 


30$: 
;CLOCK THE SYNC 
MOV 


40$: 


R4, SBDDAT ; 
#*CPLFS,$BDDAT 


(SP5 
#85, a(SP) 


#17. .BS MAKE SURE PROM STROBE IS OFF 
AMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 

AMR 1AAA,RMMR1 (RO) ;LOAD RMMR1 

a (RO) ,R4 STORE RMMR1 AT R4 

20$ 


ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE 
; SETUP ERROR FOR USER 


#2, (SP 
#62 ,a(SP) 
60$ 
PATTERN (00011001) THROUGH THE SHIFT REGISTER 
#014400,R4 
STROBE BIT C 


OUNT 
;GENERATE REG VALUE 
[WITH MAINTENANCE CLOCK ON 


;SET READ BIT PER PATTERN BIT 


R5,.RMMR1 (RO) ;LOAD RMMR1 
AMC 


R5,RMMR1 (RO) ;LOAD RMMR1 
#MCLK RS :CLOCK ONE BIT 


R5 ,RMMR1 (RO) ;LOAD RMMR1 
70$ 


BNE 40$ 
CAN'T VERIFY SYNC CLOCK WAS DETECTED 
USER CAN DO SO BY STEPING 
ier! ns ae ali PROM STROBE SETS WITHIN ONE WORD TIME 


70$: 


; TEMPORARY STORAGE 





AAAAAAAMAAAAOAO OOOH 


CZRMKBO RMO3/2 DSKLS PRT 2 
CZRMKB.P11 14-AUG-78 15:53 


024772 
010046 


000022 

000022 

000022 

000022 
025026 


025030 
025030 000022 
000022 
000022 
000022 


025066 010146 
025070 016601 000006 
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.SBTTL SAVE AND RESTORE RO=-R5S ROUTINES 


BEI I III IIIT ITO IOI IORI IIIS IIIA AIA SAS SSS ISIASAISISSS SSC 
Z*SAVE RO-RS5 

:*CALL: 

** 


; SAVREG 
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


* 

3 *TOP=-~(+16) 
p* +2---(+18) 
p* +4=---R5 

3* +6---R4 

3* +8---R3 
3*+10---R2 
3*+12---R1 
3*+14---RO 


SSAVREG: 
MOV RO,-(SP) 


22(SP) ,-(SP) 
22(SP) ,~(SP) 
22(SP) ,-(SP) 


:*RESTORE RO-R5 
3*CALL: 
se R 
$RESREG: 
MO (SP)+,22(SP) ;zRESTORE PC 
(SP)+,22(SP) szRESTORE PS OF CALL 
(SP)+,22(SP) ; RESTORE PC OF 
(SP)+,22 (SP) ; RESTORE PS OF 
(SP)+,R5 7zPOP STACK INTO R5 
(SP)+,R4 : POP STACK INTO R4 
(SP)+,R3 7Z:POP STACK INTO R3 
(SP)+,R2 :zPOP STACK INTO R2 
(SP)+,R1 :zPOP STACK INTO R1 
(SP)+;,RO ~- > *ssPOP STACK -INTO RO 


RTI 
-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


DI III III TI IIIT IT TOTTI III IIIT OI IOI IT II ISA II IAI I IAI IIT III IIIA 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
JV alam NUMBER AND TYPE IT. 
7*CALL: 
3* MOV NUMBER , ~ (SP) ; ;NUMBER TO BE TYPED 

TYPBN >; TYPE IT 


'* 


$TYPBN: MOV R1,-(SP) 72:SAVE_R1 ON THE STACK 
MOV 6(SP),R1 3:GET THE INPUT NUMBER 


SEQ 0118 





C2 
C2 
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025074 


025140 


025142 


025262 


110223 


000060 


025140 
025140 


000002 


000 


020200 
000020 
000055 


025356 
000040 


025346 


000001 
000060 
000040 
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025140 


000004 


000001 


177777 


Y TO ASCII AND TYPE ROUTINE 


1$: 


2(SP) .4(SP) 
(SP)+, (SP) 


$BIN: 


SKK EKEKEEEKKEKKKK 


SRTHIS ROUTINE IS USED TO CHANGE 


119 SEQ 0119 


33SET "'C’' SO CAN KEEP TRACK eel THE NUMBER OF BITS © 


3;SET CHARACTER TO AN ASCII 
: GET THIS BIT 


« DONE? 
:INO=-SET THE CHARACTER EQUAL TO THIS BIT 
eet TYPE THIS BIT 
LEAR ‘'C’' SO CAN KEEP TRACK OF BITS 
7GO DO THE NEXT BIT 
: POP THE STACK INTO R1 
: ZADJUST THE STACK 


: sRETURN TO USER 
ORAGE FOR ASCII CHAR. AND TERMINATOR 


BYTE 0,0 sSf 
.SBITL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


REE EKEKEKKEKEKKEEREKEKKKKKKEK 


A 16-BIT BINARY NUMBER TO A 5-DIGIT 


*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


+ *NUMBER IS POSITIVE OR NEGATIVE 
: *BEFORE THE FIRST DIGIT OF THE 
;*REPLACED WITH SPACES. 
> *CALL: 

MOV NUM, = (SP) 


$TYPDS: 
MO RO,-(SP) 


R 
ee R3 
~(R R3)+ 


R2 
$DTBL (RO) ,R1 
R1,R5 


6$ 
1(SP) ,-1(R3) 
#'0,R2 


#' ,R2 
R2,(R3)+ 


A SPACE OR A MINUS SIGN WILL BE TYPED 
NUMBER. LEADING ZEROS WILL ALWAYS BE 


7zPUT THE BINARY NUMBER ON THE STACK 
3:G0 TO THE ROUTINE 


7zPUSH RO ON STACK 
7zPUSH R1 ON STACK 
77PUSH R2 ON STACK 
: PUSH R3 ON STACK 
iin RS ON STACK 
;¢ SET BLANK SWITCH AND SIGN 
NUMBER 


E ASC ° 
3 ZERO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
:3SET THE FIRST CHARACTER TO A BLANK 
; NUMBER 


; FORM THIS BCD DIGIT 
IF DONE 
‘INCREASE THE BCD DIGIT BY 1 
;:ADD BACK THE CONSTANT 


oe =O 
3:FALL THROUGH IF 0 
‘er IF — LEADING 0*S? 


;:BR IF NO 

7 YES--SET THE SIGN 

3; MAKE THE BCD DIGIT ASCII 

;zMAKE IT A SPACE IF NOT ALREADY A pie 


IT 
32PUT THIS CHARACTER IN THE OUTPUT BUFFER 





C2 
C2 
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(RO) + 3;JUST INCREMENT ING 
000010 RO,410 3;CHECK THE TABLE INDEX 
2$ +:GO DO THE NEXT DIGIT 


8$ 

R5,R2 EL 

6$ 3:GO CHANGE TO ASCII 

(SP) + 2 WAS ig Be LSD THE FIRST NON-ZERO? 


oS BR IF 
177777 177776 -1(SP) ,=2(R3) als THE Lap oA FOR TYPING 
9$: (R3) 7zSET THE TERMINA 
(SP)+,R5 ::POP STACK INTO RS. 
(SP)+,R3 : POP STACK INTO R3 
(SP)+,R2 :zPOP STACK INTO R2 
(SP)+,R1 :;POP STACK INTO R1 
(SP)+,RO ;;POP STACK INTO RO 
025356 , SDBLK :zNOW TYPE THE NUMBER 
000002 000004 2(SP) ,4(SP) : ADJUST THE STACK 


(SP)+, (SP) 
; RETURN TO USER 
$DTBL: 


025356 SDBLK: .BLKW 4 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FRO I IORI I IORIIAIAAIIAI II ISI ISISISIAISISSISSISASSISIS SSIS SS SSS 

>*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

> *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 
MOV NUM, -(SP) NUMBER TO BE TYPED 
TYPOS ::CALL FOR TYPEOUT 
-BYTE N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE ™ 7 M=1 OR 0 
:1=TYPE LEADING ZEROS 
sain SUPPRESS LEADING ZEROS 


** 

:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC 

**CALL: } 
i* MOV, NUM, -(SP) 7 NUMBER TO BE TYPED 

“° TYPON :;CALL FOR TYPEOUT 


$1 YPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
* 

is MOV —- NUM, ~( SP) ;;NUMBER TO BE TYPED 
i* CALL FOR TYPEOUT 


000000 $TYPOS: a(SP) ,-(SP) 7;3PICKUP THE MODE 
000001 025611 MO 1(SP) , SOF ILL ; 

025613 (SP) +, $OMODE +1 F 

000002 #2, (SP) S TADJUST RETURN ADDRESS 


BR $TYPON 
000001 025611 $TYPOC: #1,$0F ILL 7;SET THE ZERO FILL SWITCH 
025420 113937 000006 025613 M #6, $OMODE +1 7:SET FOR SIX(6) DIGITS 





CZRMKBO RMO3/2 DSKLS PRT é.. 
14-AUG-78 15 


CZRMKB.P11 
025426 
0254 


025612 


AT Lb of 


000005 


025613 
000006 
025612 


025611 
000012 


025612 
177770 


025610 


000002 


E 10 
MACY11 30A(1052) 18-AUG-78 12:59 PAGE 121 SEQ 0121 
BINARY TO OCTAL (ASCII) AND TYPE 


025610 $TYPON: ay #5 ,SOCNT a ITERATION COUNT 


37 SAVE_RS 
33;GET THE NUMBER OF DIGITS TO TYPE 


3;SUBTRACT IT FOR MAX. ALLOWED 
73SAVE IT FOR USE 
SOF ILL,R4 3;GET THE ZERO FILL SWITCH 
12(SP) ,R5 ;zPICKUP_THE INPUT NUMBER 
R3 :sCLEAR THE OUTPUT WORD 
+ ¢ROTATE MSB INTO ''C 


O DO MSB 
33FORM THIS DIGIT 


3:GET LSB OF THIS DIGIT 
7a TYPE THIS DIGIT? 


;27BR IF NO 
3iGET RID OF JUNK 
s TEST FOR O 
7; SUPPRESS THIS 0? 
ag IF YES 
: DON'T SUPPRESS ANYMORE 0'S 
2 ¢MAKE THIS DIGIT ASCII 
Ce) iF - ALREADY 


;3;BR IF DONE 
3; INSURE LAST DIGIT ISN'T A BLANK 
::GO DO a Fal DIGIT 


; ORE R3 
000004 SISET THE STACK FOR RETURNING 


3 sRETURN 
i? STORAGE FOR ASCII DIGIT 
RMINATOR FOR Lise ROUT INE 


ITCH 
-WORD OQ “ INUMBER OF DIGITS TO TYPE 
SBTTL. TYPE ROUTINE 


RI IORI OCI ITO IOI IOS ARADO AISA IAI SII ISSISISISSSISSSIS SAS SSS ISSN 
* RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
: * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
; *NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
:*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
* 


+ *CALL: 
‘*1) USING A TRAP INSTRUCTION 





CZ 
C2 


CZRMKBO RMO3/2 DSKLS PRT 2 
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025614 


025756 
025762 


026026 


105737 
100002 


105777 


000002 
000001 
000100 


025664 
030512 


000040 


000002 
000011 
000200 


026072 


026026 
001172 


001170 
000001 


026026 
026072 


000040 
026026 
000007 


153132 


MACY11 ag ag 


001242 
001243 


001243 


026072 


;HORIZONTAL TAB 


8$: 
$: 


$TYPEC: 


ROUTINE 
TYPE 


TYPE 
ME SADR 


BR 
TSTB 


+ Santas 


F 1 
12:59 


»MESADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
@2(SP) ,RO 
ee 


62$ 
#APTSPOOL ,SENVM ; 
62$ 


PC, SATY3 


0 
MAPTCSUP ,SENVM 
0$ 


(RO) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 


MHT , (SP) 


8$ 
ACRLF , (SP) 
5$ 

(SP) + 


SCHARCNT 
2$ 


PC, $TYPEC 
$FILLC, (SP)+ 


2$ 
$NULL , — (SP) 
1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#* (SP) 
PC, STYPEC 
#7, SCHARCNT 
of 

(SP) + 

$ 

asTPS 


0 
PAGE 122 


i;zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


ii1S as" TERMINAL ? 
> aaa IF NO TERMINAL 
7;SAVE RO 
3;GET ADDRESS OF ASCIZ STRING 
: 7 RUNNING IN APT MOD 

:éNO, GO CHECK FOR APT CONSOLE 

POOL MESSAGE TO APT 

SINO, GO CHECK FOR CONSOLE 
3;SETUP MESSAGE ADDRESS FOR APT 
3;SPOOL MESSAGE TO APT 
3 MESSAGE ADDRESS 
3zsAPT CONSOLE SUPPRESSED 
73YES,SKIP TYPE OUT 
3=PUSH CHARACTER TO BE TYPED ONTO STACK 
77BR IF IT ISN'T THE TERMINATOR 
PBF a oe POP IT OFF THE STACK 
; RESTORE R 
2 ¢ADJUST RETURN PC 


TURN 
; ;BRANCH IF <HT> 
3 BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
zi TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 

33GET NEXT CHARACTER 

3:GO TYPE THIS CHARACTER 

3:1S IT TIME FOR FILLER CHARS.? 

331F NO GO GET NEXT CHAR. 

:iGET # OF FILLER CHARS. NEEDED 

;sAND THE NULL CHAR. 

aoe A NULL NEED TO BE TYPED? 

IF NO--GO POP THE NULL OFF OF STACK 

[GO TYPE A NULL 

:3D0 NOT COUNT AS A COUNT 


; REPLACE TAB WITH SPACE 
zi TYPE A SPACE 
arog s IF NOT AT 


32 TAB STOP 

3:POP SPACE OFF STACK 

3;GET NEXT CHARACTER 

7:WAIT UNTIL PRINTER IS READY 


SEQ 0122 
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CZRMKB.P11 


026074 


026076 


026110 
026112 


026216 


104410 
032777 
001131 
000416 


013746 


000002 
000015 


026072 
000012 


040000 


000004 
026136 
177060 
000004 


000004 


000400 


152770 
000024 
001116 


026410 
001122 


MACY11 30A(1052) 
TYPE ROUT 


153124 
000002 


000002 1$: 


INCB 
SCHARCNT:.WORD 0 


STYPEC 
2(SP) ,O$TPB 
_—-- 


ALF, —— 
$STYPEX 
(PC) + 


STYPEX: RTS PC 
.SBTTL SCOPE HANDLER ROUTINE 


[AOI ICICI ORCI ICICI IIIT IIR ISA IIIA ISIISISAISSASSSSSSASSS ASSIS SSA. 
SS THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. iT WILL INCREMENT 
7*AND LOAD THE TEST NUMBER(S$TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


153046 


LOOP 


LOOP ON ERROR 
LOOP ON TEST IN 


3: SCOPE= 


#B1T14,aSWR 
ER 


BNE $OV 
;AAAHASTART OF = FOR THE XOR 


$XTSTR: 


000004 


$6: 


153000 


BR 


@#ERRVEC ,-(SP) 
ta + aaa 


a4177060 
(SP) +, @#ERRVEC 
$SVLAD 

(SP)+, (SP)+ 

* aad -@#ERRVEC 


G 10 
18-AUG-78 12:59 PAGE 123 
INE 


48: CHAR TO BE TYPED INTO DATA REG. 
:IS ae ae ie A CARRIAGE RETURN? 


CH I 
i: YES=CLEAR CHARACTER COUNT 


XIT 
7:1S CHARACTER A LINE FEED? 
; BRANCH _IF YES 

3;;COUNT THE CHARACTER 

3; CHARACTER COUNT STORAGE 


ON TEST 
INHIBIT Ma rae 


SWR<7:0> 
10T 


3zTEST FOR CHANGE IN SOFT=SWR 
: sLOOP ON PRESENT TEST? 
YES IF SW14=1 
TEs Tensuene 
31F RUNNING ON THE ‘'XOR'' TESTER CHANGE 
THIS INSTRUCTION TO A ‘NOP"' (NOP=240) 
:3SAVE THE jenn OF THE ERROR VECTOR 
T FOR TIMEOU 
TIME OUT ON X XOR? 
: IRESTORE THE ge VECTOR 
;GO TO THE NEXT TEST 
SICLEAR THE STACK AFTER A TIME OUT 
: sRESTORE THE ERROR VECTOR 
ON THE PRESENT TEST 


7 LOOP 
CODE FOR THE KOR TESTERMMAMH 


#B1T08,aSWR 
2$ 


-(SP) 
@SWR , (SP) 


#24,(SP) 

8$ 

(SP) ,STSTNM 
(SP) 

(SP) 
A#$SWOBTBL , (SP) 
a(SP)+,$LPADR 


SOVER 
(SP) + 


Set ON SPEC. TEST? 
F NO 


‘TBR 
;CLEAR A_TEMP. LOCATION 
3 PICKUP THE DESIRED TEST NUMBER 
: ;BRANCH IF BAD TEST a ¥. SWR 
CHECK THE NUMBER IN THE S 
‘BRANCH IF TEST NUMBER IS QUT OF RANGE 
: UPDATE THE TES! NUMBER 


; BACKUP _BY ONE 
;;SCALE THE TEST NUMBER AS AN INDEX 
72FORM THE ADDRESS OF TEST POINTER 
7 eSET LOOP et TO DESIRED TEST 
O LOOP ON THE TEST 
TICLEAN THE BAD TEST NUMBER OFF OF THE STACK 


SEQ 0123 





a i i Lee il. ae oe ee oe la a sali il, li la el, i i, ile i a a i a a ee, i, a 
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105737 001117 
001131 
001000 
001124 


001117 
001206 


004000 
001230 


001120 
001206 


000001 


001116 
001116 
001122 
001124 
bE 
001116 

1122 


00 


020204 


MACY11 yg rhe gt 
— HANDLER ROUTI 


001117 
152710 
001122 


152656 


001120 


001120 
001206 


001226 


001131 
152556 


2$: 


SOVER: 


SMXCNT: 


$SWO8TBL: 
. WORD 


y ay ts # 


SERFLG 

SERMAX  SERFLG 
781709 ,aSUR 
SLPERR,SLPADR 


SERFLG 
STIMES 


1$ 
#B1T11,aSWR 
1$ 


$PASS 
1$ 


$SICNT 
STIMES,SICNT 
SOVER 

#1,$I1CN 

SMXCNT, STIMES 
$STSTNM 


$T "TNM, $TESTN 
( ),$LPADR 
/ ?) -SLPERR 


» 5C 


#1 , SERMAX 
$TSTNM,@DISPLAY : 


$LPADR, (SP) 


TST1+2 
TST2+2 
TST3+2 
TST4+2 
TST5+2 
TST6+2 
TST7+2 
TST10+2 
TST11+2 
TST12+2 
TST13+2 


-WORD TST24+2 
-SBTTL ERROR HANDLER ROUTINE 
[CII IOR ICICI OIOIOIOIIOIOIOT TOIT TOTTI TOT TOT TOT TTA TAI AISI ISASAISAISSSSSSSAIS SSSA. 


SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


H 10 
12:59 PAGE 124 


oe . OCCURRED? 

77MAX. ERRORS FOR THIS TEST OCCURRED? 
;;BR IF NO 

;;LOOP ON ERROR? 

3;7BR IF NO 

:;SET LOOP ADDRESS TO LAST SCOPE 


2 ZERO THE ERROR FLAG 


AR THE NUMBER OF — TO MAKE 


4 aalenateae 


il FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
SS CHECK THE NUMBER OF ITERATIONS MADE 
3;BR IF MORE ITERATION REQUIRED 
; RE INITIALIZE THE ITERATION COUNTER 
ET NUMBER OF ITERATIONS TO DO 
7:COUNT TEST NUMBERS 
33SET TEST NUMBER IN APT MAILBOX 
7;SAVE SCOPE LOOP ADDRESS 
3;SAVE ERROR LOOP ADDRESS 
yep THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
; FUDGE _ ADDRESS 
: FIXES 
3 7MAX NUMBER OF ITERATIONS 


7=:STARTING ADDRESS 
+s STARTING ADDRESS 
ARTING ADDRESS 
ADDRESS 


MRONAULSWNO 


2 
ADDRESS ra) 





SEQ 0124 


am 
NN 
nn 


i. Tt. 


i i i a i cll ee le i a i i i i ee a a a ee, 
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122737 
001007 
113737 
004737 


013716 
022737 
001001 


000002 


14-AUG-78 


15:53 


001117 
001116 
002000 
001212 
001126 
001132 


000002 
152376 
020000 


021706 
001217 


000001 


001130 
030522 


152344 


001000 


001124 
001210 


001210 
021666 


MACY11 y bet 
OR HANDLER ROUTINE 


;*AND GO TO ERRTYP ON ERROR 
>*THE SWITCH wit PROVIDED BY THIS ROUTINE ARE: 


ON ERROR 
INHIBIT canon TYPEOUTS 


152460 
152450 


001132 
001130 
152410 


001242 
026600 


152330 


000042 


+ *SW15= 1 
+ *SW13=1 
:*SW10=1 
3; *SwO09=1 
7*CALL 


-* 


SERROR: , 


7$: 


S$: 


3$: 


4$: 


5$: 


6$: 


18-AUG-78 


BELL ON ERR 
LOOP ON ERROR 


I 10 
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N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 


SERFLG 
7$ 


STSTNM,@DISPLAY 


#B1T10,aSWR 
1$ 


, SBELL 
SERTTL 
(SP) , SERRPC 
#2, SERRPC 


@SERRPC,$1TEMB 


#B1T13,aSWR 


20$ 
PC, ERRTYP 
- SCRLF 


MAPTENV, SENV 
2$ 


$ITEMB,21$ 
core 


0 
22$ 
aSWR 
3$ 


#BITO9,aSWR 
4$ 


SLPERR, (SP) 
$ESCAPE 


5$ 
SESCAPE , (SP) 
HSENDAD , 442 
6$ 


RTI 
-SBTTL TTY INPUT ROUTINE 


3: ; TEST FOR CHANGE IN SOFT-SWR 
:3SET THE ERROR FLAG 
:DON'T LET THE FLAG GO TO ZERO 
+ DISPLAY TEST NUMBER AND ERROR FLAG 
;:BELL ON ERROR? 
zzNO = SKIP 
ses .— 
20 THE NUMBER OF ERRORS 
T:GET NDDRESS OF ERROR INSTRUCTION 


hong AND SAVE THE ERROR ITEM CODE 
SKIP TYPEOUT IF SET 
; SKIP TYPEOUTS 

£260 TO USER ERROR ROUTINE 


7 RUNNING IN APT MODE 
;sREPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;;HALT ON ERROR 

73SKIP IF CONTINUE 

;sHALT ON ERROR! 

7:TEST FOR CHANGE IN SOFT-SWR 
;;LOOP ON ERROR SWITCH SET? 


;;BR IF NO 
: FUDGE RETURN FOR LOOPING 
; CHECK FOR AN ESCAPE ADDRESS 


7 7BR IF NONE 
7FUDGE RETURN ADDRESS FOR ESCAPE 


zACT-11 AUTO-ACCEPT? 
; BRANCH IF NO 


; sRETURN 


CI RTT TORT ROTO TOTTI TOTTI TIT TR ERR ER ER REN 


$TKQOUT: 


7 NUMBER OF ITEMS IN QUEUE 
32 INPUT POINTER 
;;OUTPUT POINTER 





SEQ 0125 


an 
~~ 
 wWwn 


rata 


i i a a, a ee ae ele lin il cei ei A ea a a a, ae, i i a a ee, ee, ee, ee, a 
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026666 


026740 


02 
027010 
027012 


14-AUG~-78 


117746 


022627 


15:53 


152216 
177600 
000003 


030054 
026670 


002632 
000007 
000176 


000001 
001212 


000023 


152114 
152106 
152102 


177600 
000021 


MACY11 yt 


152222 


001154 


026660 


J 
LS = 12:59 
Y INPUT ROUTINE 
$TKQSRT: .BLKB 1 
$STKQEND=. 
-EVEN 


3*TK INITIALIZE ROUTINE 
[*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


TeCALL: 
* 
* 


$TKINT: 


ty 


PC, $TKINT 


$STKCNT 


M$TKQSRT ,STKQIN 
S$TKQIN, $TKQOUT 
ASTKSRV ,AATKVEC 
#200 ,@#TKVEC+2 


a@$TkKB 
#100,a$TKS 
PC 


3*TK SERVICE ROUTINE 


>*THIS ROUTINE WILL SERVICE 


10 
PAGE 126 


i33TTY KEYBOARD QUEUE 


;CLEAR COUNT OF ITEMS IN wie 
: IMOVE THE STARTING ADDRESS 0 
3;QUEUE INTO THE INPUT 
ss INITIALIZE THE KEYBOARD VEC 
ee "BR'’ LEVEL 4 

CLEAR DONE FLAG 
TENABLE TTY KEYBOARD INTERRUPT 
7;RETURN TO CALLER 


— TTY KEYBOARD INTERRUPT 


3*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
7*IT IN THE QUEUE. 
7*IF THE CHARACTER IS A ‘‘CONTROL-C'' (*C) STKINT IS CALLED 


AND 
: *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C*' RESTART ADDRESS (START) 


STKSRV: 


2$: 


3$: 


31$: 


MOVB 


@$TKB,-(SP) 
#*C177, (SP) 
(SP) 43 

1$ 


-SCNTLC 
PC, $TKINT 
(SP) + 
START 

| is 


2 
ASWREG, SWR 
6$ 


#1, $TKCNT 
3$ 


, SBELL 
(SP) + 


5$ 

(SP) ,423 
32$ 

a$TKS 

(SP)+ 
a$TKS 

31$ 

@$TKB,- (SP) 


#°C177, (SP) 
(SP)+,#21 


3 PICKUP ) eo 
:zSTRIP THE J 
21S IT (A CONTROL C? 


BRANCH IF NO 
::TYPE A CONTROL-C (*C) 
3:INIT THE KEYBOARD 
3;CLEAN UP STACK 
;sCONTROL C RESTART 
;;1S IT A CONTROL G? 
; BRANCH IF NO 
21S SOFT-SWR SELECTED? 
32GO TO SWR CHANGE 


ails bed rs FULL? 


F_NO 
2 RING THE TTY BELL 
3:CLEAN CHARACTER OFF OF STACK 


sEXIT 

HIS IT A_CONTROL~S? 
;BRANCH IF NO 

; :DISABLE TTY KEYBOARD INTERRUPTS 
;CLEAN CHAR OFF STACK 

SIWAIT FOR A CHAR 

;;LOOP UNTIL ITS THERE 

3:GET THE CHARACTER 

3:MAKE IT 7-BIT ASCII 

3:18 IT A CONTROL-Q? 


THE 
& OUTPUT POINTERS. 
CTOR 


SEQ 0126 CZR 


oO 
™~ 
> «) 


- oe eo he eh em De eo em @ ff Oe fr. ew > FS S fr fr SD fr. H A HAA fh AA ALAA AAA AAAaArArAaAaKnr ar rrr 
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oO 
™~ 
eo) 


K 10 
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TTY INPUT ROUTINE CZR 


:IREENABLE TTY KEYBOARD INTERRUPTS 


;RETURN 
7:COUNT THIS CHARACTER 
e2S IT UPPER CASE? 


“BRANCH IF YES 
:31S 1 A SPECIAL CHAR? 
<UMAKE IT UPPER CASE 


#40, (SP) 
(SP) +, @$TKQIN ; PUT IT IN QUEUE 
T T:UPDATE THE POINTER 


STKQIN 
ere :iG0 OFF THE END? 


31$ 
152060 #100, a5TKS 


STKCNT 
(SP) ,4140 


4$ 
(SP) ,4175 
4$ 


026667 
026662 


027154 


027156 


027210 


027212 


027274 


027276 
027302 


027306 


022737 


123727 


117746 
042716 


021627 


000176 
151766 
151762 


001150 


030104 
151664 
151660 


177600 
000003 


001154 


000001 


001151 


5$: 


5 23 CH IF NO 
#$TKQSRT,STKQIN —. POINTER 


FRC OI IOI ICICI OIE IOI IO RIOR AIA IAI IASI AS SSAS SSS ASSIS SAA 
[*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


;*CALL WHEN OPERATING IN TTY Nn 


$CKSWR: CMP 
BN 


ASWREG , SWR 
15$ 

a$TKS 

15$ 
@$TKB,-(SP) 


#°(177, (SP) 
(SP) #7 
2$ 


MODE. 
Pig B SOFT-SWR SELECTED 
T IF NOT 


scVES 

7:MAKE IT 7-BIT ASCII 

::1S IT A CONTROL-G? 

z21F NOT, PUT IT IN THE TTY QUEUE 
7 AND EXIT 


FIR II IKARIA ERE REE REE 


: CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


[*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
iS ee AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


6$: 


e 


(SP) + 

PC, $TKINT 
a$TKS 
#1,$INTAG 
-SCNTLG 

, SMSWR 
SWREG,-(SP) 
. SMNEW 
-(SP) 


~(SP) 
a$TKS 
7$ 


a$TKB,-(SP) 
#°C177, (SP) 


(SP) #3 


2 GARE WE RUNNING IN AUTO-MODE ? 
;BRANCH IF YES 

7:CLEAR CONTROL-G OFF STACK 

33FLUSH THE TTY INPUT QUEUE 

7:DISABLE TTY KEYBOARD INTERRUPTS 

72SET INTERRUPT MODE INDICATOR 


37-ECHO THE CONTROL-G (“G) 
2a TYPE CURRENT CONTENTS 
ze ‘on SWREG FOR TYPEOUT 
O TYPE--OCTAL ASCII(ALL DIGITS) 
NEW SWR 


= CHAR THERE? 
+: ]F NOT TRY AGAIN 


3zPICK UP CHAR 
7:MAKE IT 7-BIT ASCII 


3:1S IT A CONTROL-C? 





ee a a ne ee ee ee ee ee ee eee YOY 
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027312 


027516 


027520 
027522 


001015 
104401 


062706 
123727 
001003 
012777 
000137 


021627 
001005 


15:53 


030054 
000006 
001151 000001 
000100 151616 
002632 
000025 
030061 
000006 


000015 
000004 
000002 151544 


000006 
001217 
001151 000001 


000100 151522 
026026 
000060 
000067 
000060 
000002 


000002 
177776 
001216 


000004 000002 


MACY11 30A(1052) 
TTY INPU 


17$: 


18$: 
BR 
-DSABL LSB 


18-AUG-78 
NPUT ROUTINE 


9$ 

-SCNTLC 
#6,SP 
SINTAG,#1 
#100 ,a$TKS 
START 


(SP) ,425 
10$ 
-$CNTLU 


4 


19$ 


(SP) ,415 
16$ 

4(SP) 

11$ 
—— 


,$CRLF 
SINTAG,#1 
15$ 

#100, a$TKS 


PC,$TYPEC 
+ ieee 


18$ 

(SP) ,467 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 
-2(SP), (SP) 
7$ 

,SQUES 

20$ 


L 10 
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:BRANCH IF NOT 
SIYES, ECHO CONTROL-C (“C) 
AN UP STACK 


CH_IF 
TALLOW TTY sre INTERRUPTS 
;;CONTROL=C RESTAR 


2i1S IT A CONTROL-U? 
BRANCH IF NOT 

:3YES, ECHO CONTROL-U (“U) 
; IGNORE PREVIOUS INPUT 

TILET'S TRY IT AGAIN 


2i1S IT A <CR>? 

CH IF NO 
7zYES, IS IT THE FIRST CHAR? 
sé CH IF YES 


: ECHO <CR> AND <L 
TTY KBD. INTERRUPTS? 


NOT 
TTY KBD INTERRUPTS 


F YES 


ee CH IF YES 
3sSTRIP-OFF ASCII 

3731S THIS THE FIRST CHAR 
; BRANCH IF YES 

2 éNO, SHIFT PRESENT 


73 TYPE ?<CR><LF> 
¢SIMULATE CONTROL-U 


FI I I III I II II TK II IIR KERR ERR ER EEK EERE RK EK 


SSTHIS ROUTINE WILL Faas A SINGLE CHARACTER FROM THE TTY 


CALL: 


-* 
-* 
-* 
** 


° 
’ 
e 
° 
e 


SRDCHR: MOV 
MOV 


RDCHR 
RETURN HERE 


(SP) ,-(SP) 
4 (SP) ,2(SP) 


2 2GET A CHARACTER FROM Ln ate 
CHARACTER IS ON THE STA 
::WITH PARITY BIT STRIPPED OF F 


org eae THE PC AND 





STAC 
;REENABLE Apa KEYBOARD INTERRUPTS? 


SEQ 0128 CZRI 


Oo 
NN 
DD 


~~ Sd SS ss sr i Nu I Iu I SI SI J SSIS SWS SSW "SWI SIS sSSUV -(@ SYS Sd 


CZRMKBO RMO3/2 DSKLS PRT 2 


CZRMKB.P11 


027610 


027760 


14-AUG-78 15:53 


000004 
027544 


026660 
026660 
177102 
026664 
026664 
026666 


030044 
030054 


000177 


000134 
030042 
177777 
030044 


030042 
030042 


000134 
030042 


000025 
030061 
000022 


001217 
030044 


MACY11 ne a 


000004 
026667 
026664 


030042 


030042 


M 10 
12:59 PAGE 129 SEQ 0129 


3;GET READY FOR A_CHARACTER 


32: INPUT A STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7; TERMINATOR WILL BE A BYTE OF ALL O'S 


IF 
GO READ ONE CHARACTER FROM THE TTY 


BR IF NO 
3335 THIS THE FIRST RUBOUT? 
F NO 
:BR_IF YES 
SETUP TYPEOUT THE DELETED CHAR. 


71S “2 A CTRL U? 


18-AUG-78 
INPUT ROUTINE 
CLR at 
MOV rons, -(SP) :;PUT NEW PC ON STACK 
“as RTI ;3POP NEW PC AND PS 
1$: ss oo ;zWAIT ON A CHARACTER 
DEC STKCNT : ;DECREMENT THE COUNTER 
MO @STKQOUT,4(SP) ;; ONE CHARACTER 
INC $TKQOUT ;; UPDATE THE POINTER 
CMP $TKOOUT, #STKQEND “3DID IT GO OFF OF THE END? 
BNE 2 H IF NO 
MOV #$TKQSRT, $TKQOUT “7 ERESET THE POINTER 
es: RTI ; ;RETURN 
SCI IIR ICI ICIS I RRR IOIOIC IOI IERIE IER ICICI IIR IIIS SAIS ISIS SSIS SASS ASSIA. 
:STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
7*CALL: 
:* RDLIN 
* RETURN HERE 
** 
$RDLIN: MOV R3,-(SP) 23 SAV VE R3 
CLR -(SP) ;CLEAR THE RUBOUT KEY 
1$: MOV #STTYIN,RS GET ADDRESS 
2$: CMP ASTTYING8. RS ao FULL? 
BLOS 4$ 8. YES 
RDCHR 
MOVB (SP)+, (R3) “GET CHARACTER 
10$: CMPB #177, (R3) e2IS IT A RUBOUT 
BNE 5$ 
TST (SP) 
BNE 6$ BR I 
MOVB #'\ 9S +> TYPE A BACK SLASH 
TYPE 9S 
MOV #-1, (SP) :zSET THE RUBOUT KEY 
6$: DEC R3 ;;BACKUP BY ONE 
CMP R3,ASTTYIN ii STACK EMPTY? 
BLO 4 
MOVB (R3) ,9$ 
TYPE 9S os 
BR 2s 33GO READ ANOTHER CHAR. 
5$: TST (SP) :RUBOUT KEY SET? 
BEQ 7$ ;2;BR IF NO 
a #'°\ 9% 7: TYPE A BACK SLASH 
CLR (SP) shit THE RUBOUT KEY 
7$: CMPB #25, (R3) 
BNE IF NO 
TYPE $CNTLU :: TYPE A CONTROL ‘U"' 
BR 3:GO START OV 
8$: CMPB #22,(R3) #8 CHARACTER A ‘“*R''? 
BNE $ . CH IF NO 
CLRB (R3) + ICLEAR THE CHARACTER 
TYPE ,SCRLF 7: TYPE A ‘‘CR''®& LF‘ 
TYPE -S1TYIN 


33 TYPE THE INPUT STRING 
3:GO PICKUP ANOTHER CHACTER 





N~N 


7 
f 
7 
£ 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
2 
7 
7 
2 
7 
7 
7 
7 
2 
7 
7 
; 
7 
j 
; 
? 
7 
i 
; 
( 
; 
( 
; 
( 
j 
( 
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030104 
030112 


030116 
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000764 
005726 


15:53 
001216 


030042 
030042 
000015 
177777 
001220 


000004 
030044 


000004 


177770 


MACY11 30A(1052) 
TTY INPUT 


000002 
000004 


000 
000012 
000 
051127 
020127 


000002 


4$: 
3$: 


9$: 


STTYIN: 
SCNTLC: 
SCNTLU: 
SCNTLG: . 


SMSWR: 
SMNEW: 


-ASCIZ 


, SQUES 

1$ 

(R3) ,9$ 
9 
#15,(R3)+ 
2$ 


ASTTYIN, 4(SP) 
0 
0 
8. 
/*C/<15><12> 


/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 


/ NEW = 


N 10 
18-AUG-78 12:59 PAGE 130 
ROUT INE 


si: TYPE A °?° 
s CLEAR THE BUFFER AND LOOP 
7z;ECHO THE CHARACTER 


3sCHECK FOR RETURN 
;;LOOP IF NOT RETURN 
ziCLEAR RETURN (THE 15) 


INE FEED 
3;CLEAN RUBOUT KEY FROM THE STACK 

TEREST ORE R3 

2 ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
és FIRST ASCII CHARACTER ON IT 


; sRETURN 

i STORAGE FO FOR ASCII CHAR. TO TYPE 
3 sRESERVE 3. BYTES FOR TTY INPUT 
3¢CONTROL *'C'' 

z-CONTROL ° 

pr we 


-EVEN 
.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FCRIII ICICI TOR III RAIA IAA IAI IO AISI IA ISIS SSS SASSISSSSSSSSSSS SSSA. 
SSTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
[*CHANGE IT TO BINARY. 


2$: 


3$: 


*CALL: 


RDOCT 
RETURN HERE 


(SP) ,-(SP) 
4(SP) ,2(SP) 
RO,-(SP) 
R1,-(SP) 
R2,-(SP) 


(SP)+,RO 
R1 


R2 
(RO) +,-(SP) 


#*C7, (SP) 
em 


2 
(SP)+ 


7;:READ AN OCTAL NUMBER 
3;LOW ORDER BITS ARE ON TOP OF THE STACK 
3;HIGH ORDER BITS ARE IN $HIOCT 


: sPROVIDE SPACE FOR THE 
NPUT NUMBER 


+ PUSH RO ON STACK 

:7PUSH R1 ON STACK 

zZPUSH R2 ON STACK 

: READ AN ASCIZ LINE 

::GET ADDRESS OF 1ST CHARACTER 
3: CLEAR DATA WORD 


3zPICKUP THIS CHARACTER 
rilF ZERO GET OUT 


3384 
3388 


zi STRIP THE ASCII JUNK 
-:ADD IN THIS DIGIT 


;;LOO0P 
:: CLEAN TERMINATOR FROM STACK 


SEQ 0130 CZ2R 


o 
MN 
eo] 


SWN NN NNN 
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CZRMKB.P11 
030176 


030216 


030220 
030224 


030256 


030260 
030262 
030270 


030272 


030322 
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010166 
010237 
012602 
012601 
012600 


000002 
000000 


016646 


016000 
000200 


011646 
016666 
000002 


030260 


027246 
027156 


024772 


000012 
030216 


000002 
000020 
030236 


000092 


030272 


000004 000002 


MACY11 "on ie 


D AN OCTAL NUMBER FROM THE T 


R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


RTI 
$HIOCT: .WORD 0 
.-SBTTL TRAP DECODER 


B11 
18-AUG-78 12:59 . 131 


SEQ 0131 


33SAVE THE RESULT 

33POP STACK INTO R2 
3;POP STACK INTO R1 
a — INTO RO 


sRETU 
HIGH ORDER BITS GO HERE 


FICCI II ICICI IO IER TOI IOI TOT IOI TOR TTR TIT TIO III IIIT AIS IIIS ISA SIS SSA 
SRTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WIiL 


:*GO TO THAT ROUTINE. 
STRAP: 2(SP) ,-(SP) 
#20, (SP) 
#1$,-(SP) 


1$: RO,-(SP) 


RO 
$TRPAD (RO) ,RO 
RO 


2 ¢ASSUME THE STATUS OF 

33 THE CALLER--DO NOT ALLOW 

33 T-BIT TRAPS 

3sSET THE NEW STATUS 

steer VE RO 

:GET TRAP ADDRESS 
UP BY 2 


> BACK 

7iGET RIGHT BYTE OF TRAP 
3sPOSITION FOR INDEXING 
; INDEX TO TABLE 

360 TO ROUTINE 


:zTHIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


$TRAP2: MOV (SP) ,=(SP) 
He 4(SP) ,2(SP) 


-SBTTL TRAP TABLE 


3zMOVE THE PC DOWN 
3sMOVE THE PSW DOWN 
3sRESTORE THE PSW 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


7*BY THE ‘'TRAP'' INSTRUCTION. 
: ROUT INE 


$TRPAD: . $TRAP2 
$ 77 CALL=TYPE 
32CALL=TYPOC 
33 CALL=TYPOS 
3: CALL=TYPON 
7; CALL=TYPDS 
3; CALL=TYPBN 


37 CALL=GTSWR 


77 CALL=CKSWR 

3; CALL=RDCHR 

72 CALL= RDLIN 

OCT ALL=RDOCT 
$SAVREG += CALL= SAVREG 


TRAP+1(104401) 


TTY TYPEOUT ROUTINE 
AP+2(104402) “TYPE OCTAC 
TRAP+3( 102403) 
TRAP +4 (104404) 
TRAP+5 (104405) 


TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


TRAP+7(104407) GET SOFT-SWR SETTING 


TRAP+10(104410) TEST FOR CHANGE IN SOF T=SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 

TRAP+14(104414) SAVE RO-R5S ROUTINE 





NOMBER (WITH LEADING ZEROS) © 


C2 
Ca 


CZRMKBO RMO3/2 DSKLS PRT 2 
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CZRMKB.P11 
030324 


030326 
030334 


0305 
030540 


025030 


012737 


112737 
112737 


000403 
112737 


001450 


030466 
000340 


150572 
030472 
030400 


030466 


030472 
150524 


030326 
000340 


047520 


000001 
000001 


000001 


030746 


MACY11 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


030750 
030746 


030750 


C 11 
y yg 18-AUG-78 12:59 PAGE 132 SEQ 0132 


SRESREG ;;CALL=RESREG TRAP+15(104415) RESTORE RO-R5 ROUTINE 
.SBTTL POWER DOWN AND UP ROUTINES 


PDI IOIISISIOISISISIIISIOISISIDIOI INICIO IIT TOR ATTA ISSA SSS SASS 
;POWER DOWN ROUTINE 
$SPWRDN: MO ASILLUP ,AMPWRVEC ;;SET FOR FAST UP 
+ ype @APWRVEC+2 + ¢PRIO: 7 
) RO ON STACK 


@SWR ON STACK 
S 6 er SP 
ASPWRUP ,AMPWRVEC ;;SET UP VECTOR 
7-2 7 ZHANG UP 


FRAO III IOI IORI IIA IAA IOI IAI IIAISI ISI ISIISISISSASSASSSISSIS ISIS SSSS 
;POWER UP ROUTINE 
£ ASILLUP ,Q#PWRVEC ;;SET FOR FAST DOWN 
$SSAVR6, SP scGkl 
$SSAVR6 ;zWAIT LOOP +» THE TTY 
1$: — 2 sWAIT ao THE INC 


: OF 
(SP)+,aSWR 3 POP STACK INTO @SWR 
POP STACK INTO R5 
7:POP STACK INTO R4 
3zPOP STACK INTO R3 
‘bop STACK INTO R2 
:POP STACK INTO R1 
33POP_ STACK INTO RO 
#SPWRDN , AAPWRVEC SET UP THE POWER DOWN VECTOR 
#340, aMPWRVEC+2 ;:PRIO:7 
REPORT THE POWER FAILURE 
SPWRMG: . $POWER 3zPOWER FAIL MESSAGE POINTER 


$SILLUP: 33THE POWER UP SEQUENCE WAS STARTED 
4 3: BEFORE THE POWER DOWN WAS COMPLETE 

$SAVR6: 0 3sPUT THE SP HERE 

$POWER: .ASCIZ <15><12>' POWER" 


- EVEN 
.-SBTTL APT COMMUNICATIONS ROUTINE 


FIORE IIOTIOT T OT ATA IOSIA ISA IASISASIASI SII SSSA SSASSASSSI SNS 
SATY1: 3:TO REPORT FATAL ERROR 
$ATY3: an 3:TO TYPE A MESSAGE 


$SATY4: #1,$FFLG 3;TO ONLY REPORT FATAL ERROR 


$ATYC: 
RO,-(SP) 7zPUSH RO ON STACK 
R1,-(SP) 7 ;PUSH R1 ON STACK 
SMF LG are # TYPE A MESSAGE? 
5$ sz1F NOT: BR 





C2 


C2 
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CZRMKB.P11 


030750 


122737 


000040 


000001 
000100 
000004 
000002 
001222 
001236 
001236 


001240 
000004 


004 
0000 
177776 
025614 
030750 
001242 
001222 
000004 


030746 


MACY11 goign 


001242 
001243 


000004 


001222 


030660 
000004 


001224 
000004 


18-AUG-78 


COMMUNICATIONS ROUTINE 


$MFLG: 
$LFLG: 
$FFLG: 


-EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 
APTCSUP=040 


—— 
ee 
a4 (SP) ,RO 
#2,4(SP) 
a 

RO, SASGND 

(RO) + 
2s 

$SMSGAD ,RO 
RO 

RO, $MSGLGT 


#4 ,SMSGTYPE 
5$ 

PC, $TYPE 

0 


SFFLG 
12$ 


(SP)+, “RO 
PC 
0 


0 
0 


D 11 
12:59 PAGE 133 SEQ 0133 


: /OPERATING UNDER APT? 
NOT: BR 
; s SHOULD i MESSAGES? 


NOT: 
:3GET MESSAGE ADDR. 
; ;BUMP RETURN ADDR. 
+3 SEE IF’ DONE W/ LAST XMISSION? 
:IF NOT: WAIT 
::PUT ADDR IN MAILBOX 
3FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

33GET MESSAGE LNGTH IN WORDS 
3;PUT LENGTH IN MAILBOX 
33TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

PUSH 16 ON STACK 

*:CALL TYPE MACRO 


¢ SHOULD REPORT FATAL ERROR? 


F NOT: BR 
Sp ge UNDER APT? 
F NOT: BR 
; FINISHED LAST MESSAGE? 
NOT: WAIT 


GET ERROR # 
;BUMP RETURN ADDR. 

2c TELe abt TO TAKE ERROR 

;CLEAR FATAL FLAG 
Z:CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
3zPOP STACK INTO R1 
ie x STACK INTO RO 

TURN 


: MESSG. FLAG 
:LOG FLAG 
:FATAL FLAG 





C2 
C2 


E 11 
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ons .SBTTL CONSOLE MESSAGES 
6720 «-NLIST BEX 
030752 051 CLSPRN: .ASCII aa 
030753 075 000 EQUALS: .ASCIZ a@=a 
030755 015 025012 000 PROMPT: .ASCIZ <(CR><LF>d*a 
030761 077 000 QSTMRK: .ASCIZ @7?@ 
030763 HELPQST: 
030763 015 052012 050131 .ASCIZ <CR><LF>@TYPE HELP TEXT (Y OR N)??@ 
031017 UBUSQST 


031017 015 041412 040510 .ASCIZ <CR><LF>@CHANGE RMO3 UNIBUS ADDRESS OR VECTOR ADDRESS (Y OR N)<CR> ??@ 
031116 005015 051525 020105 CNSLOO: .ASCIZ <CR><LF>@USE SAME DEVICES (Y OR N) ??@ 

031155 015 051012 030115 CNSLO1: .ASCIZ <CR><LF>@RMO3 BUS ADDRESS (a 

031202 005015 047105 051124 CNSLO2: .ASCII <CR><LF>@ENTRY NOT IN I/O PAGE@ 

031231 015 040412 042104 -ASCIZ <CR><LF>@ADDRESS MUST BE SS ae 

031263 015 051012 030115 CNSLO3: .ASCIZ <CR><LF>@RMO3 VECTOR ADDRESS 

031313 015 042412 052116 CNSLO4: .ASCII <CR><LF>@ENTRY OUT OF RANGES 

031337 015 040412 042104 -ASCIZ <CR><LF>@ADDRESS MUST BE <1000@ 

031367 015 051012 030115 CNSLOS: .ASCIZ <CR><LF>@RMO3 INTERRUPT PRIORITY (@ 

031423 015 042412 052116 CNSLO6: .ASCIZ <CR><LF>@ENTRY OUT OF RANGE 


031450 005015 054524 042520 .ASCII <CR><LF>@TYPE (A) TO TEST ALL DEVICES, OR TYPE DEVICEa@ 
031526 047040 046525 042502 .ASCII @ NUMBER(S)@ 
031540 005015 042524 046522 .ASCIZ <CR><LF>@TERMINATE INPUT WITH CARRIAGE RETURN@ 
031607 015 047012 052117 NOTEX: .ASCIZ <CR><LF>/NOT EXIST DRIVE / 
6721 -LIST BEX 


6722 031634 -EVEN 


we 
‘ 
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MACY11 30A(1052) 
CONSOLE 


FNCDTB: 


F 11 
12:59 PAGE 135 


18-AUG-78 
MESSAGES 


OPI 
OPI!ATA!ILF ‘IVC 
ATA!OPI! IVC! IAE 
ATA! OPI! IVC 

OPI 

OPI! IVC 
OPI!ATA! IVC 
OPI!ATA! IVC 

OPI 


OPI 

OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

ATA! OPI! IVC! IAE 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF ! IVC 
WCE!OPI! IVC! IAE!AOE!HCE!ECH 
WCE!OPI! IVC! IAE!AOE!HCE!ECH 
OPI !ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!.VC!WLE! JAE! AOE ! HCE 
OPI! IVC!WLE! IAE ! AOE 


-OPI!ATA!ILF!IVC 


ATNTBL: 


OPI!ATA!ILF!IVC 
OPI! IVC! IAE!AQE!HCE!ECH 
OPI! IVC! IAE!AOE!HCE!ECH 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF!IVC 


-BYTE 
B 


;FUNCTION CODE TABLE 


;NOP 
tte FUNCTION (2) 


3S 
‘RECALIBRATE 
DRIVE CLEAR 


RELEASE 

OFFSET 

;RETURN TO CENTERLINE 
;READ IN PRESET 

;PACK ACKNOWLEDGE 


L FUNCTION 
FUNCTION 


FUNCTION 


; ILLEGAL 
[WRITE CHECK DATA 


;WRITE CHECK HEADER AND DATA 


SILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 
;WRITE DATA 

;WRITE HEADER AND DATA 
ILLEGAL FUNCTION (64) 
ILLEGAL FUNCTION (66) 
READ DATA 

;READ HEADER AND DATA 
ILLEGAL FUNCTION (74) 
ILLEGAL FUNCTION (76) 


SEQ 6135 
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-EVEN 


031744 040042 000000 EMT]: . EMS300,EMS1 ,0 
046542 EMT2: . EMS301,EMS302,EMS303,EMS1,EMS304 


051305 . EMS511,EMS500,EMS501,EMS502,EMS503,0 


EMT3: . EMS301 ,EMS306,EMS302 
051305 . EMS511,EMS505 ,EMS501,EMS502,0 


046576 EMT4: . EMS300 ,EMS302,EMS307,EMS2 
051305 ° EMS511,EMS502,EMS501,EMS503,0 


046654 EMTS: EMS301,EMS310,EMS311 
051305 . WOR EMS511,EMS502,—MS501,EMS503,EMS504 


° EMS312,0 
046654 EMT6: . EMS301 ,EMS306,EMS311 
. EMS511.EMS502,EMS501,EMS503,£MS504 ,0 


GMT7: . EMS301 ,EMS313,EMS302 
EMS511.EMS501.EMS502,EMS504 ,EMS503,0 


7105 EMT10: . EMS316,EMS317,EMS314 
051305 051332 . EMS511,EMS501,EMS502,0 


047105 047036 EMT11: EMS316,EMS317,EMS315 
051305 051332 EMS511,EMS501,EMS502,0 


047125 047007 EMTi2: . EMS316,EMS320,EMS314 
051305 051332 . EMS511,EMS501,EMS502,0 


047125 047036 EMT13: . EMS316,EMS320,EMS315 
051305 051332 ° EMS511,EMS501,EMS502,0 


047145 047007 EMT14: .WOR EMS316,EMS321,EMS314 
051305 051332 . EMS511,EMS501,EMS502,0 


047145 047036 EMT15: . EMS316,EMS321,EMS315 
051305 051332 EMS511,EMS501,EMS502,0 


047165 047007 EMT16: . EMS316,EMS322,EMS314 
051305 051332 . EMS511,EMS501,EMS502,0 


eS ee ea ee eS Ll eC 


047165 047036 EMT17: . EMS316,EMS322,EMS315 
051305 051332 é EMS511,—MS501,EMS502,0 


047462 EMT20: . EMS71,EMS335,EMS340,EMS72,EMS377,EMS372 


. EMS511,EMS503,0 
EMT21: . EMS71.EMS336,E£MS340,EMS72,EMS400,EMS372 


. EMS511,EMS503,0 
EMT22: . EMS73,EMS352,EMS74,EMS402,EMS70,EMS406 
050547 044400 050646 
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032372 051724 051401 051425 EMS511,EMS503,EMS504 ,0 
000000 


047707 044725 EMT23: EMS73,EMS352,EMS75 ,EMS402,EMS77 ,EMS406 
045042 050646 
051401 051425 . EMS511,EMS503,EMS504 ,0 


orth 44 EMT24: . EMS73,EMS356,EMS75 ,EMS402,EMS77,EMS377 
051425 EMS511,EMS503,EMS504,0 


EMT25: . EMS73,EMS335 .EMS340,EMS76,EMS411 


. EMS511,EMS503,0 
EMT 26: EMS301 EMS 306, EMS252,EMS253,EMS327,EMS254 


051401 051305 . EMS511,€MS503,EMS501,EMS502 


047007 000000 EMS330,EMS314,0 

ease 050701 EMT27: . EMS337.EMS73,EMS410,EMS76,EMS411 
051401 000000 . EMS511,EMS503,0 

045105 047473 EMT30: EMS337,EMS100,EMS341,EMS101 


051401 051425 ° EMS511,EMS503.EMS504 ,0 


046044 CMTS}: . EMS300 ,EMS252 
051305 051401 . EMS511,EMS501,EMS503,0 


050321 EMT32: . EMS100,EMS370 
000000 
EMT33: 


000000 

EMT34: 
000000 

EMT35: 


000000 . >EMS503,0 
047462 EMT36: EMS 100.EMS335,EMS340,E£MS102,EMS334 


EMS511,EMS504,0 
EMT37: . EMS 100, EMS335,EMS340,EMS102,EMS377,EMS365 


EMS413, ad oy EMS415 
. EMS511,EMS504,0 
EMT4O: . EMS100, “EMS 336. EMS340,EMS416,EMS104 ,EMS415 


. EMS511,EMS504,0 
EMT41: . EMS100,EMS336,EMS340,EMS73,EMS415 ,EMS402 


* EMS102,EMS400 
000000 . EMS511,EMS504,0 
050532 047265 EMT42: . EMS103.EMS401 .EMS327,EMS370 


051401 “ EMS511,EMS503,0 
045327 EMT43: . EMS414,EMS104,EMS417 
051425 . EMS511,EMS504,0 

033022 045354 050532 047265 EMT44: . EMS105.EMS401 ,—EMS327,£MS370 


aon 
NN 
ww 


7 
7 
2 
: 
7 
f 
7 
7 
c 
; 
7 
i 
i 
f 
L 
f 
( 
{ 
f 
é 
{ 
‘ 
f 
‘ 
‘ 
( 


050547 
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CZRMKB.P11 14-AUG-78 15:53 CONSOLE MESSAGES 


050321 
051401 000000 ° EMS511,€MS503,0 
046077 EMT45: . EMS300 ,EMS253 
051305 051401 . EMS511,€MS501,EMS503,0 


050532 051030 EMT46: . EMS106, sang 4h EMS417 
051401 000000 . EMS511,EMS503,0 
045462 EMT47: EMS413.EMS107.EMS420,EMS417 


051425 000000 : EMS511,EMS504,0 
050742 EmMT5O: . EMS110,EMS413,EMS405 ,EMS107 


051401 . EMS511,EMS503,0 

045531 EMTS1: EMS343,EMS111,EMS421 

051425 EMS511,EMS504 0 

051016 045462 EMTS2: . EMS414,EMS416,EMS107,EMS421 


051425 000000 . EMS511,EMS504 ,0 

040227 046235 EMT53: . EMS331, aoe vm 

051305 000000 ° EMS511,EMS501,0 

050742 050636 EMTS4: . EMS112.E£MS413,EMS405,EMS607 


051401 000000 . EMS511,EMS503,0 
050532 047265 EMTSS: . EMS113,EMS401,EMS327,EMS370 


051401 000000 ° EMS511,EMS503,0 
050532 051030 EMTS6: . EMS114,EMS401,EMS417 
051724 051401 000000 . EMS511,EMS503,0 


033242 046265 047342 EMTS7: . EMS257 ,EMS332 
033246 051724 051524 051305 . EMS511,EMS506,EMS501,0 
033254 000000 


033256 040260 047360 EMT60: . EMS5 ,EMS333 
033262 051724 051561 051305 . EMS511,EMS507,EMS501,0 
033270 000000 


ao 
 N~ 
wn 


am bem tem te bm ba tw bm hee bee bo heb Sh eh oe) oe) ef of | oe) oe! &,) &.) ef | &,) @,/ @/ ef @/ @/) @/ @/ =) @/ 


033272 050742 045712 051047 EMT61: . EMS413,EMS115,EMS420,EMS417 


051425 000000 EMS511,EMS504 ,0 
045105 047473 EMT62: . EMS346,EMS100,EMS341,EMS101 


051425 000000 . EMS511,EMS504,0 
EMT63: . EMS113,EMS371 
000000 r EMS511,EMS503,0 
047723 EMT64: . EMS413,EMS116,EMS353 
000000 EMS504,0 
EMT65: . 
051724 051425 000000 ‘ EMS511, *—EMS504, 0 


033366 040601 047427 047502 EMT66: . EMS12,EMS336,EMS342 
033374 051724 051305 000000 ‘ EMS511,EMS501,0 


033402 046454 040330 EMT67: .WORD EMS300,EMS6 
033406 051724 051305 . EMS511,EMS501 
033412 040374 047360 000000 , EMS7,EMS333,0 
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040330 047265 EMT70: .WORD &MS300,EMS6,EMS327,EMS7 
051305 051425 -WORD &MS511,EMS501,EMS504,0 


047404 047462 fs EMS6,EMS335 ,EMS340,EMS10,EMS333 ,EMS342 
047360 047502 
051305 051332 EMS511,EMS501,EMS502,0 


047427 047462 rg EMS6,EMS336,EMS340,EMS10,EMS334 ,EMS342 
047374 047502 
051305 051332 ° EMS511,EMS501,EMS502,0 


Oeseie 046472 046321 046542 : EMS301,EMS260,EMS303,EMS11 
033520 051305 051332 . EMS511,€MS501,EMS502,0 
033526 000000 


033530 047550 047502 EMT74: . EMS343 ,EMS344 ,EMS342,0 
033536 000000 


033540 0464 040657 EMT75: . EMS300,EMS13 
033544 051724 051401 000000 . EMS511,EMS503,0 


033552 047625 040657 047577 EMT76: . EMS346,EMS13,EMS345 
033560 051724 051401 000000 . EMS511,—MS503,0 


033566 047446 040657 047577 EMT/7: . EMS337,EMS13,EMS345 
033574 051724 051401 000000 . EMS511,EMS503,0 


4 294 3 046132 EMT100: . EMS301,EMS313,EMS254,EMS347,EMS13 
051724 051401 000000 . EMS511,EMS503,0 
040726 047473 EMT101: EMS346,EMS14,EMS341,EMS15 
051401 051305 EMS511,EMS503,EMS501,0 
EMT102: . EMS337, cart 
000000 ‘ EMS511,EMS503,0 
046132 EMT103: EMS301,EMS313,EMS254,EMS347,EMS15 


. EMS511,EMS503 
047342 000000 . EMS14,EMS332,0 


041132 047473 EMT104: . EMS346,EMS17,EMS341,EMS16 


051401 051305 ‘ EMS511,EMS503,EMS501,0 
033716 


033720 047446 041132 047473 EMT105: . EMS337,EMS17,EMS341,EMS16 
033726 041051 
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CZRMKB.P11 14-AUG-78 15:53 CONSOLE MESSAGES CZ2R 


033730 051724 051401 051305 EMS511,EMS503,EMS501,0 
033736 000000 


033740 046132 EMT106: . EMS301,EMS313,EMS254,EMS347,EMS16 


EMS511,EMS503 
000000 . EMS17,EMS332,0 


047473 &MT107: EMS346,EMS20,EMS341,EMS21 

051305 EMS511,EMS503,EMS501 ,0 

041237 €MT110: . EMS20,EMS351,EMS21,.EMS350,EMS22,EMS315 
047664 047036 
051724 000000 ‘ EMS511,EMS501,0 
et? 047664 EMT111: . EMS20,EMS334 ,EMS350,EMS22,EMS333 
051724 051305 000000 ° EMS511,EMS501,0 

041173 047473 EMTI12: . EMS337 ,EMS20,EMS341,EMS21 


051401 051305 ° EMS511,EMS503,EMS501,0 


Q41173 047473 EMTII3: EMS337,EMS20,EMS341,EMS21,EMS350,EMS22 .£MS334 


041316 
051724 051305 000000 ° EMS511,EMS501,0 
041173 041237 EMT114: . EMS20,EMS352,EMS21,EMS350 ,EMS22 ,—EMS333 
047664 047360 
051724 000000 ° EMS511,EMS501,0 
046132 EMT115: . EMS301,EMS313,EMS254 ,EMS347,EMS21 


EMS511,EMS503 
047342 000000 . EMS20,EMS332,0 


041363 047473 EMT116: . EMS346 ,EMS23,EMS341 ,EMS24 
051401 051305 . EMS511,—MS503,EMS501,0 


041363 047473 EMT117: . EMS337 ,EMS23,EMS341,EMS24 
051401 051305 ° EMS511,EMS503,EMS501,0 


046756 046132 EMT120: . EMS301,EMS313,EMS254 ,EMS347 ,EMS24 


EMS511,EMS503 
047342 000000 . EMS23,EMS332,0 


041520 047473 EMT121: . EMS346,EMS25 ,EMS341,EMS26 
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CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12:59 PAGE 141 SEQ 0141 CZRI 
CZRMKB.P11 14-AUG-78 15:53 CONSOLE MESSAGES CZRI 


051401 051305 EMS511,EMS503,EMS501,0 


041520 047473 EMT122: . EMS337 ,EMS25 ,EMS341,EMS26 
051401 051305 EMS511,EMS503,EMS501,0 


046132 EMT123: . EMS301 ,EMS313,EMS254,EMS347,EMS26 


. EMS511,EMS503 
000000 . EMS25 ,EMS332,0 


046576 EMT124: EMS300 ,EMS27 ,EMS307 ,EMS2 
051401 000000 EMS511,EMS503,0 
041655 047723 EMT125: . EMS331, ae EMS353 
051401 . EMS511,EMS503 
047036 000000 . EMS30, EMssi5, 0 
041655 047473 EMT126: . EMS337 ,EMS27,EMS341,EMS30 
051724 051401 000000 ° EMS511,EMS503,0 


046472 6756 046132 EMT127: EMS301 ,EMS313.EMS254 ,EMS347 ,EMS30 


047643 
051724 EMS511,EMS503 
041655 000000 WOR EMS27 ,EMS332.0 


042001 047747 045742 EMT130: . EMS31,EMS354,EMS250 
051724 051425 051401 . EMS511,£MS504 ,EMS503,0 


047747 045742 EMT131: EMS32,EMS354,EMS250 
051425 051401 EMS511,EMS504 .EMS503,0 


PES 045742 EMT132: . EMS355 ,EMS33,EMS250,EMS341,EMS30 
051724 051425 000000 . EMS511,EMS504 ,0 


050002 042171 045742 EMT133: EMS355 ,EMS34,EMS250 ,EMS341 ,EMS30 
047473 041721 
051724 051425 000000 . EMS511,EMS504 ,0 


047312 040227 046173 EMT134: . EMS331,EMS4,EMS255 
051724 051425 000000 Y EMS511.EMS504,0 


hye 050044 050066 EMT135: . EMS35 ,EMS357,EMS360,EMS15 
051724 051305 000000 EMS511,EMS501,0 


046352 050142 EMT136: . EMS261 ,EMS362 
051724 051401 000000 ‘ EMS511,EMS503,0 
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CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12:59 PAGE 142 SEQ 0142 CZRI 
CZRMKB.P11 14-AUG-78 15:53 CONSOLE MESSAGES CZRI 


034570 er tee 046576 &EMT137: EMS300 ,EMS36,EMS307,EMS2 
051724 000000 ; EMS511,EMS501,0 
ess 4 046173 EMT140: EMS355 ,EMS37,EMS255 ,EMS341,EMS30 
051724 051425 000000 . EMS511,EMS504 ,0 


047625 042361 047577 EMT141: EMS346,EMS40,EMS345 
051724 051425 000000 EMS511,EMS504 ,0 


042361 047473 EMT142: . EMS337 ,EMS40,EMS341,EMS30 
051724 051425 000000 . EMS511,EMS504 ,0 


050163 046637 042437 EMT143: EMS363,EMS310,EMS41 
051724 051305 000000 EMS511,EMS501,0 


047446 047473 EMI144: . EMS337 ,EMS41,EMS341,EMS252,EMS327 ,EMS253 
046044 046077 
051724 051305 000000 EMS511,EMS501 0 


047747 050200 EMT145: . EMS41,EMS354 ,EMS364 ,EMS252,EMS365 ,EMS253 
04 050221 046077 
051724 051305 000000 ° EMS511,EMS501,0 


046562 042271 EMT146: . EMS301 ,EMS306,EMS36 


a and ea cad ad ae ed cd ed 
CONAUSWN—O 


046472 
051724 051305 051401 . EMS511,EMS501,EMS503,0 
000000 


050226 042505 EMT147: . EMS366 ,EMS42 
051724 051401 000000 EMS511,EMS503,0 


050251 050221 EMT150: EMS367 ,EMS353,EMS365 ,EMS42,EMS354 ,EMS3 
042505 040162 
051724 051401 000000 EMS511,EMS503,0 


035012 047446 042271 EMT151: . EMS337 ,EMS36 
035016 051724 051305 000000 EMS511,EMS501,0 


035024 042567 047747 042271 EMT152: . EMS43,EMS354 ,EMS36 
035032 051724 051305 000000 EMS511,EMS501,0 


oes > ress 050221 EMT153: . EMS367 ,EMS353,EMS365 ,EMS36,EMS370 
035052 051724 051401 000000 , EMS511,EMS503,0 


035060 050251 047723 050221 EMT154: . EMS367 ,EMS353,EMS365 ,EMS36,EMS371 
035066 042271 050336 
035072 051724 051401 000000 e EMS511,EMS503,0 


Osioe or ste 042640 046576 EMT155: EMS300,EMS44 ,EMS307 ,EMS2 
035110 051724 051401 000000 . EMS511,EMS503,0 





CZRMKBO RMO3/2_DSKLS PRT 


CZRMKB.P11 


035116 
035124 
035132 


035140 
035146 
035150 


035156 
035164 


14-AUG-78 
050251 
042640 
051724 
046454 
040113 
051724 


050251 
042701 


18:53 


051401 
042701 
051401 


047723 
047747 


MACY11 yey 


050221 
040162 
000000 
046576 
000000 


050221 
040162 


OLE MESSAGE 
EMT156: .WORD 
. WORD 

EMT157: .WORD 
. WORD 

EMT160: .WORD 


N 11 
oe 12:59 PAGE 143 


EMS367 ,EMS353,EMS365 .EMS44 ,EMS354 ,EMS3 
EMS511,EMS503,0 

EMS300,EMS45 ,EMS307 ,EMS2 
EMS511,EMS503,0 

EMS 367 ,EMS353,EMS365 ,EMS45 ,EMS354 ,EMS3 


SEQ 0143 


CZRP 
CZRI 


CZRMKBO RMO3/2 DSKLS PRT 2 


CZRMKB.P11 


035172 
035200 
035206 
035214 
035216 
035224 
035232 
035240 
035242 


035250 
035256 


035330 
035332 
035340 
035342 
035350 
035352 
035360 
035364 
035372 
035374 
035400 


035406 
035414 


035422 


035440 
035446 
035454 


035462 


035502 


035510 
035516 


14-AUG-78 15:53 


051724 
042227 


046454 
040113 
051724 


047446 
051724 
000000 


042227 
042437 
051724 


043040 
042437 
051724 


047446 
051724 


043100 
051724 


046472 
051724 
000000 


050251 
043040 
051724 


051724 


046454 
052023 


051401 
047360 


042756 
051401 
042756 
051401 


047404 
047374 
051305 


047404 
047404 
051305 
042227 
051305 
047360 
043040 
051305 
047404 


047360 
051305 


042227 
051305 


042171 
051365 


046562 
051305 


047723 
047747 
051305 


045742 


051305 
046235 


MACY11 30A(1052) 
CONSOLE MESSAGES 


051305 
000000 


046576 
000000 
047723 
051305 


047446 
050365 
000000 


047446 


047265 


050365 


046576 
051401 


047462 
051401 


000000 


040162 
000000 


043147 
051425 


050221 
040162 
000000 


047265 
046235 


000000 
047473 


EMT161: 


EMT162: 


EMT163: . 


EMT164: 


EMT165: 


EMT166: . 


EMT 167: 


EMT170: 


EMT171: 


EMT172: 


EMT173: . 


EMT174: . 


EMT175: . 


B 12 
18-AUG-78 12:59 PAGE 144 SEQ 0144 


. WORD 
. WORD 


. WORD 
. WORD 


EMS511,EMS503,EMS501 
EMS35 ,CMS333,0 


EMS300 ,EMS46,EMS307 ,EMS2 
EMS511,EMS503,0 

SST OEE 

EMS35 ,EMS335 ,EMS337 ,EMS41 ,EMS334 ,EMS372 
EMS511,EMS501,0 

EMS47 ,EMS335 ,EMS337,EMS41,EMS335 ,EMS372 
EMS511,EMS501,0 

EMS337 ,EMS35 ,EMS327 ,EMS47 

EMS511,€MS501 

EMS41,EMS333,EMS372,0 
EMS300,EMS47,EMS307 ,EMS2 
EMS511,EMS501,EMS503,0 


EMS50,EMS335,EMS340,EMS36,EMS333 
EMS511,EMS501,EMS503,0 

EMS337 ,EMS35 

EMS511,EMS501,0 


EMS50,EMS34 ,EMS3 
EMS511,EMS501,0 


EMS301,EMS306,EMSS | 
EMS511,EMS501,EMS504 ,0 
EMS367,EMS353,EMS365 ,EMS47 ,EMS354 ,EMS3 
EMS511,—MS501,0 

EMS300 ,EMS250,EMS327,EMS255 ,EMS327,EMS256 


EMS341 ,EMS600 
EMS511,EMS501,0 


EMS300 ,EMS256,EMS341 ,EMS600 


CZ 
CZ 


CZRMKBO RMO3/2 DSKLS PRT 2 
14-AUG-78 15:53 


CZRMKB.P11 
035520 
035526 
035534 
035536 
035544 
035552 
035554 
035562 


035570 
035572 


035610 
035616 


035624 
035626 


035654 


035656 
035664 


035666 
035674 
035676 
035704 
035712 


035716 


035744 


035746 
035754 


035762 


035770 
035772 


036022 


051724 


046454 
052023 
051724 


046454 
052023 
051724 


047446 
052053 
051724 
047625 
052073 
051724 
047625 
052073 
051724 


047625 


051651 
047446 


043320 
051724 


043320 


045742 
051724 


051724 


047446 
051724 


051305 
045742 
051425 
046173 
051425 
043216 
051305 
043216 
051305 
043147 
051305 
043216 
051425 
043216 
051425 
047747 
000000 
043320 
051425 
047747 
051305 
047747 
051425 
047747 
051425 


043375 
051425 


C 12 
MACY11 30A(1052) 18-AUG=78 12:59 PAGE 145 


000000 
047473 
000000 
047473 
000000 
047473 
000000 
047473 
000000 
047473 
000000 
047577 
051305 


047473 
051305 


040162 
051332 


050423 
046173 
051305 
040162 
000000 
050200 
000000 
050200 
000000 


000000 


CONSOLE MESSAGES 
. WORD 
EMT176: .WORD 
. WORD 
EMT177: .WORD 
. WORD 
EMT200: .WORD 
. WORD 
EMT201: .WORD 
. WORD 
EMT202: .WORD 
. WORD 
EMT203: .WORD 
- WORD 


EMT204: .WORD 
. WORD 
EMT205: .WORD 
. WORD 
EMT206: .WORD 


. WORD 
. WORD 


EMT207: .WORD 
. WORD 


EMT210: .WORD 
_ 

WORD 

EMT211: .WORD 

. WORD 

EMT212: .WORD 

. WORD 


EMS511,EMS501,0 

EMS300 ,EMS250,EMS341,EMS600 
EMS511,EMS504,0 
EMS300,EMS255 ,EMS341 ,EMS600 
EMS511,EMS504,0 

EMS337 ,EMS52.EMS341,EMS601 
EMS511,EMS501,0 
EMS346,,EMS52,EMS341 ,EMS602 
EMS511,EMS501,0 
EMS346,EMS51,EMS341,EMS602 
EMS511,EMS501,0 
EMS346,EMS52,EMS345 ,EMS373,EMS255 
EMS511,EMS504,EMS501,0 


EMS346,EMS52,EMS341,EMS27 
EMS511,EMS504,EMS501,0 


EMS53,EMS354,EMS3 


~EMS511,EMS503,EMS502,EMS510,0 


EMS337,EMS54,EMS374,EMS250,EMS327,EMS255 
EMSS11 ,EMSS0S ,EMS5O1 ,0 

EMSS Ti EMSSO1LO 
EMS54,EMS354 ,EMS364 ,EMS250 
EMS511,£MS504,0 

EMS54 ,EMS354,EMS364,EMS255 
EMS511,£MS504,0 


EMS337,EMS55 
EMS511,EMS504,0 


SEQ 0145 
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047374 047577 EMT213: .WORD E&MS56,EMS334,EMS345,EMS373,EMS262,EMS327,EMS251 
046411 047265 


051305 -WORD &MS511,EMS501 
047404 000000 -WORD &MS56,EMS335,0 


047446 043453 EMT214: .WORD EMS337,EMS56 
051724 051305 000000 -WORD £&MS511,EMS501,0 


oes 047664 EMT215: .WORD EMS57,EMS333,EMS350,EMS60,EMS334 
051724 051305 000000 «WORD &MS511,EMS501,0 


050163 046562 040260 EMT216: .WwORD &MS363,EMS306,EMS5 
051724 051305 000000 -WORD E&MS511,EMS501,0 


050163 046562 043704 EMT217: .WORD &MS363,EMS306,EMS61 
051724 051305 000000 -WORD &MS511,EMS501,0 


043757 047360 050454 EMT220: .WwORD EMS62,EMS333,EMS375,EMS251 
Osi 724 051305 000000 -WORD &MS511,EMS501,0 
026160 043757 047360 050470 EMT221: . EMS62 ,EMS333,EMS376,EMS262 
036190 051724 051305 000000 . EMS511,EMS501,0 
aroa> 047360 050470 EMT222: EMS62 ,EMS333,EMS376,EMS250 
051724 051305 000000 EMS511,EMS501,0 
ah 043757 047473 EMT223: . EMS346,, EMS62 ,EMS341 ,EMS603 
051724 051305 000000 , EMS511,EMS501,0 
044040 050470 EMT224: . EMS346,,EMS63,EMS376,EMS262 


051305 051401 . EMS511,EMS501,EMS503,0 


AF i 
AM 
AM 
AM 
AM 
AM 
AM 
AM 
AM 
AM: 


=e 


047360 047664 EMT225: . EMS63 ,EMS333,EMS350,EMS363,EMS310,EMS262 
046637 046411 
051724 051305 000000 ‘ EMS511,EMS501,0 


pees 050044 042271 EMT226: EMS63,EMS357,EMS36,EMS372 
051724 051305 000000 . EMS511,EMS501,0 
oaore 050024 050066 EMT227: . EMS63,EMS356,EMS360,EMS15 
051724 051305 000000 , EMS511,—MS501,0 


Seezzzz 


Sesser 
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7334 036330 044060 050024 050114 EMT230: .wORD &MS63,EMS356,EMS361,EMS15 
7335 036336 040773 


et. 036340 051724 051305 000000 -WORD &MS511,EMS501,0 

7338 036346 044040 050024 042437 EMT231: .WwORD EMS63,EMS356,EMS41 

ery 036354 051724 051305 000000 «WORD &MS511,EMS501,0 

7341 036362 042437 050504 047502 EMT232: .WORD EMS41,EMS377,EMS342,EMS365,EMS63,EMS332 
7342 036370 050221 044040 047342 

veer 036376 051724 051305 000000 -WORDV  £&MS511,EMS501,0 

7345 036404 050251 047723 050221 EMT233: .WORD &MS367,EMS353,EMS365,EMS63,EMS401 

7346 036412 044040 050532 

7347 036416 051724 051401 051305 -WORD &MS511,EMS503,EMS501,0 

it a 036424 000000 

7350 036426 041051 050504 050365 EMT234: .WORD &MS16,£MS377,EMS372,EMS365 ,EMS64,EMS354 ,EMS3 
7351 036434 050221 044100 047747 

7352 036442 040162 

7353 036444 051724 051401 051305 -WORD £&MS511,EMS503,EMS501,0 

vere 036452 000000 

7356 036454 046454 044150 046576 EMT235: .WORD EMS300,EMS65,EMS307,EMS2 

7357 036462 040113 

7358 036464 051724 051332 051401 -WORD EMS511,EMS502,EMS503,0 

it i44 036472 000000 

7361 036474 043453 050504 050470 EMT236: .WORD &MS56,—MS377,EMS376,EMS252,EMS372,EMS350 
7362 036502 046044 050365 047664 

7363 036510 044150 050532 -WORD EMS65,EMS401 

7364 036514 051724 051332 051401 “WORD €MS511,£MS502,EMS503,EMS501,0 

7365 036522 051305 000000 


7367 036526 046454 044211 046576 EMT237: .WORD &MS300,EMS66,EMS307,EMS2 
7368 036534 040113 
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CZRMKB.P11 


037010 
037016 
037022 
037026 


037052 
037060 


051724 
000000 


051724 


050556 
041237 


051724 
044040 
052155 
051724 
042271 


052155 
051724 


051724 


050556 


051724 
044040 


051305 


050515 
044211 
051401 


047427 
050646 
051401 
052155 


051491 
050532 
051401 
050321 
051401 
052155 
050504 
051401 
047404 
047342 
051401 


047427 
050646 


051401 
052202 


047427 
050617 


051401 
050532 


MACY11 9 


051401 


050365 
050532 
051305 


047462 
050636 
000000 
050547 


000000 


047462 
050636 


000000 
050636 
000000 
050636 
000000 
050547 


000000 
050636 
000000 


047462 
050636 


000000 
050547 


000000 


047462 
050636 


000000 
050636 


EMT240: 


EMT241: 


EMT242: . 


EMT243: . 


EMT244: . 


EMT245: . 


EMT 246: 


EMT247: 


EMT250: . 


EMT251: . 


EMT252: 


EMT253: 


. WORD 


F 12 
A(1052) 18-AUG-78 12:59 PAGE 148 
ONSOLE MESSAGES 


. WORD 


EMS511,EMS501,EMS503,0 


EMS15.£MS400,EMS372,EMS350,EMS66,EMS401 
EMS511,EMS503,EMS501,0 


EMS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS604 


EMS511,€MS503,0 
EMS403,EMS604 ,EMS402,EMS21,EMS377 


EMS511,EMS503 
EMS36,EMS335 ,0 


EMS66,EMS336,EMS340,EMS26,EMS404 ,EMS405 ,EMS604 


EMS511,EMS503,0 
EMS63,EMS401,EMS405 ,EMS604 
EMS511,EMS503,0 

EMS36 ,EMS370,EMS4U5 ,EMS604 
EMS511,—MS503,0 

EMS403,EMS604 ,EMS402,EMS24 ,EMS377 


EMS511,—MS503 
EMS36,EMS335,0 


EMS67 ,EMS332,EMS405 ,EMS604 
EMS511,EMS503,0 
EMS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS605 


EMS511,EMS503,0 
EMS403,EMS605 ,EMS402,EMS21,EMS377 


EMS511,—MS503 
EMS 36,EMS335,0 


EMS66,EMS336,EMS340,EMS26,EMS404 ,EMS405 ,EMS605 


EMS511,EMS503,0 
EMS63,EMS401,EMS405 ,EMS605 


SEQ 0148 
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CZRMKB.P11 


037066 
037070 


037076 


037132 


037140 
037146 
037150 
037156 
037164 


037172 
037174 


037202 
037210 
037214 
037220 


037226 


037244 
037252 
037260 
037262 


037270 


037324 
037332 


037350 
037356 
037360 


037366 
037374 
037402 


052202 
051724 


051724 


050556 
041441 
051724 
042271 


044266 
052202 
051724 


051724 
050556 


ogy th 
041576 
052220 
051724 


044040 
052220 
051724 


042271 
052220 
051724 


050556 
041441 
051724 
042271 


044400 
052220 
051724 
044266 
052220 
051724 


044211 
051724 


044211 


051401 
050321 
051401 
052202 


047342 
051401 


047427 
050646 


051401 
052220 
050504 
051401 
047404 


047427 
050617 


051401 
050532 
051401 
050321 
051401 
052220 


047404 
050532 
051401 
047342 
051401 


050024 
051401 


047427 


MACY11 30A(1052) 18=AUG 


000000 
050636 
000000 
050547 


000000 
050636 
000000 


047462 
050636 


000000 
050547 


000000 


047462 
050636 


000000 
050636 
000000 
050636 
000000 
050547 


000000 
050636 
000000 
050636 
000000 


050661 
000000 


047462 


CONSOLE MESSAGES 


EMT254: 


EMT255: . 


EMT256: 


EMT257: 


EMT260: . 


EMT 261: 


EMT 262: 


EMT263: . 


EMT264: . 


EMT265: . 


EMT266: . 


EMT 267: 


EMT270: 


G 12 
-78 12:59 PAGE 149 


EMS511,€MS503,0 
EMS36,EMS370,EMS405 ,EMS605 
EMS511,EMS503,0 

EMS403,EMS605 ,EMS402,EMS24 ,EMS377 


EMS511,€MS503 
EMS36,EMS335 ,0 


EMS67 ,EMS332,EMS405 ,EMS605 
EMS511,EMS503,0 
EMS66 ,EMS336,EMS340,EMS15 ,EMS406,EMS405 ,EMS606 


EMS511,EMS503,0 
EMS403,EMS606,EMS402,EMS21,EMS377 


EMS511,EMS503 
EMS36,EMS335 ,0 


EMS66,,EMS336,EMS340,EMS26,EMS404 ,EMS405 ,EMS606 


EMS511,EMS503,0 
EMS63,EMS401 ,EMS405 ,EMS606 
EMS511,EMS503.0 

EMS36 ,EMS370,EMS405 ,EMS606 
EMS511,EMS503,0 

EMS403 ,EMS606,EMS402 ,EMS24 ,EMS377 


EMS511,EMS503 
EMS36,EMS335,0 


EMS70,EMS401,EMS405 ,EMS606 
EMS511,EMS503,0 
EMS67 ,EMS332,EMS405 ,EMS606 
EMS511,—MS503,0 


EMS66,EMS356,EMS407 
EMS511,EMS503,0 


EMS66 ,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS607 


SEQ 0149 
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gare te 050646 050636 
037420 051724 051401 000000 -WORD €&MS511,EMS503,0 


Orie 050556 052240 050547 EMT271: .WORD &MS403,EMS607,EMS402,EMS21,EMS377 
037440 -WORD £&MS511,EMS503 
037444 000000 -WORD EMS27,EMS336,0 


Slots 3 655 050321 050636 EMT272: . EMS27 ,EMS370,EMS405 ,EMS607 
037462 051724 051401 000000 ° EMS511,EMS503.0 


037470 ohh #4 050336 050636 EMT273: . EMS27 ,EMS371,EMS405 ,EMS607 
051724 051401 000000 ° EMS511,EMS503,0 


possi, 050617 050636 EMT274: EMS36,EMS404 ,EMS405 ,EMS607 
037516 051724 051401 000000 ‘ EMS511,EMS503,0 


037524 050532 050636 EMT275: . EMS53,EMS401,EMS405 ,EMS607 


051401 051332 ° EMS511,EMS503,EMS502,0 
037542 


fate! 044266 047342 050636 EMT276: . EMS67 ,EMS332,.EMS405 ,EMS607 
037554 051724 051401 000000 EMS511,EMS503,0 


037562 044211 047427 047462 EMT277: . EMS66,EMS336,EMS340,EMS26,EMS404,EMS405 ,EMS607 
050617 050636 


051724 051401 000000 ° EMS511,EMS503,0 
050556 052240 050547 EMT300: . EMS403,EMS607,EMS402,EMS24 ,EMS377 
041441 050504 
051724 051401 ° EMS511,EMS503 
037624 041655 047427 000000 ° EMS27 ,EMS336,0 


037632 050532 050636 EMT301: EMS70,EMS401,EMS405 ,EMS607 


044400 
052240 
051724 051401 000000 ‘ EMS511,EMS503,0 
052256 


H . WORD 
037724 053046 000000 EHT115: .WORD 
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037730 053144 EHT130: . 
000000 : 


054072 
054076 


042516 @NONEXISTENT DEVICE ‘NED'' (RMCS2,BIT 12) a 

@CONTROLLER CLEAR "'CLR’’ (RMCS2,BIT ye 

@FUNCTION CODE (RMCS1, BITS 01 - 05) 

@UNUSED BIT POSITIONS OF @ 

@DEVICE AVAILABLE ‘DVA'' (RMCS1, BIT 11) a 

@PARTIY ERROR ‘PAR’ (RMER1, BIT 03) @ 

@DATA PARITY ERROR ‘DPE'’ (RMER2, BIT *03) a 

@PARITY TEST "PAT'' (RMCS2, BIT 04) a 

@MASSBUS CONTROL BUS PARITY ERROR 'MCPE*’ a 

a(RMCS1, BIT 13) a 

@ILLEGAL REGISTER ERROR ‘‘ILR'’ (RMER?, BIT 01) @ 
Ic *'DMD'* ¢ 1, BIT 00) a 


® 
nN 


Malt 03) a 


Q@WRITE LOCK Ss. 

@DEVICE CHECK ‘DVC"' (RMERD, T 07) a 
@MAINTENANCE DRIVE FAULT ae (RMMR1, BIT 06) a 

@UNSAFE STATUS “UNS"’ (RMER1, BIT 14) a 

@SEEK INCOMPLETE STATUS ‘'Ski‘' (RMER2, BIT 14) a 

@MAINTENANCE SEEK ERROR ‘MSER’' (RMMR1, BIT 07) a 


oS oO 
‘> Ww 
N = 
ah aed ae eee ed een ae eh A ee eed 


UMW NM 
NINN NI BS I Re I BS I I I 


044501 052116 EMS24: 
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041520 047520 EMS25: . @POSITIONING IN PROGRESS ‘PIP’' (RMDS, BIT 13) @ 
041576 040515 —_ @MAINTCNANCE ON CYLINDER *™MOC"' Ap BIT 08) a 
165 105 2116 : @END OF BLOCK ‘EBL** (RMMR1, BIT 13) a 
@DIAGNOSTIC END OF BLOCK “DEBL'' (RMMR1, 7 13) a 
@LAST SECTOR STATUS ‘1LS** (RMMRI, BIT 02) 
@LAST SECTOR/TRACK STATUS ‘LST’* (RMMR1, BIT 01) a 
@SECTOR ADDRESS, BITS 00-04 OF - 
@TRACK ADDRESS, BITS 08-10 OF @ 
@VOLUME VALID “Vv'' (RMDS, BIT 06) @ 
@GO BIT (RMCS1, BIT 00) a 
@CYLINDER ADDRESS, BIT 00-09 OF a 
@LAST BLOCK TAKEN STATUS ‘‘LBT'* (RMDS, BIT 10) @ 
$s @COMPOSITE ERROR ‘ERR’ (RMDS, BIT 14) a 
046517 040515 EMS42: . @COMMAND SEQUENCER TEST BIT ‘‘TST’’ (RMMR2, BIT 12) a 
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@DRIVE READY STATUS ‘DRY'' (RMDS, BIT 07) @ 
@CONTINUE ‘‘CONT’’ (RMMR1, BIT 06) a 
@INVALID COMMAND ERROR “‘IVC"* CRMER?, BIT 12) a 
@LOSS OF SYSTEM CLOCK ERROR ‘LSC’ (RMER2, BIT 11) a 
@OCCUPIED "OCC’’ (RMMR1, BIT 15) a 

@ILLEGAL FUNCTION ‘‘ILF (RMER1, 817 0) a 

@OFFSET DIRECTION ‘OFD'' (RMOF, BIT 07) @ 

@OFFSET MODE ‘OM'’ (RMDS, BIT 603 a 

@RUN AND GO 'RG'’ (RMMR1, BIT 14) a 

@INVALID ADDRESS ERROR “‘IAE'’ (RMER1, BIT 10) @ 
@ADDRESS OVERFLOW ERROR ‘'AOE'’ (RMER1, alt 09) a 
@REGISTER MODIFICATION REFUSED ERROR @ 

a’ RMR’ (RMER1, BIT 02) a 


BI 
@DRIVE REQUEST ane te ® STATUS *DRQ"’ te BIT 11) a 
@PROGRAMMABLE STATUS 'PGM'' (RMDS, BIT 09) 
@DRIVE PRESENT STATUS ‘DPR’ (RMDS, BIT 08) 
@PORT REQUEST FLOP ‘RQA,ROQB’’ (RMMR2, BITS 3, 14) 
@ATTENTION ‘‘ATA’’ (RMDS, BIT 15) @ 
@WRITE LOCK ERROR ‘WLE’* (RMER1, BIT 11) @ 
@EXCEPTION *REX'’ (RMMR1, BIT 12) a 
@INVALID COMMAND ERROR “‘IVC'’ (RMER2, BIT 12) a 
@TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @ 
° @LINES (RMMR2, BITS 10,11,13) @ 
051101 : @SEARCH ENABLE ‘ESRC’* (RMMR1, BIT 11) @ 


051105 ts @OPERATION IMCOMPLETE ERROR ‘OPI‘'(RMER1 BIT13) @ 

: @DISABLE SEARCH TIMEOUT ‘DTO"' (RMMR1 BIT 12) a 
@DRIVE TIMING ERROR ‘DTE’(RMER1,BIT 12) @ 
@MAINTENANCE INDEX PULSE *MI'"(RAMR1 BIT 3) a 
@MAINTENANCE SECTOR PULSE 'MS''(RMMR1 BIT 5) @ 
@FORMAT BIT ‘FMT16'' (RMOF ,BIT12) @ 
@SECTOR COMPARE MSC’ '(RMMR1 BIT 5 a 
@PROM STROBE ‘WC’* (RMMR1 BIT 5) a 
@MAINTENANCE BIT CLOCK *MCLK*" (RMMR1 BIT11) @ 
@LOOKING FOR SYNC *PL FS* (RMR -BIT10) @ 
@WRITE GATE *BBO0'’ (RMMR2 BITO) a 
@HEADER SYNC PATTERN @ 
@HEADER AREA ‘PHA'’ (RMMR1 BIT 7) a 
@ENABLE CRC OUT ‘ECRC'’ (RMMR1 BIT 9) a 
@HEADER @ 
@READ GATE et ee BIT 1) a 
@HEADER ERROR 
@DATA TIMING SEQUENCER OUTPUT @ 
@DATA AREA ‘PDA'' (RMMR1 BIT 8) a 
@ENABLE ECC OUT 'EECC’’ (RMMR1, BIT 4) a 
@ECC PATTERN @ 
@ECC ERROR @ 
@DISK ADDRESS REGISTER (RMDA) @ 
@CONTROL STATUS ag (RMCS1) @ 


SONOMUCONSUOW 


2) a 
@MAINTENANCE REGISTER #1 (RMMR1) @ 
@DESIRED CYLINDER REGISTER (RMDC) a 
@OFFSET REGISTER (RMOF) @ 
: @DRIVE TYPE REGISTER (RMDT) @ 
044504 EMS260: . @HOLDING REGISTER (RMHR) @ 
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CZRMKBO RMO3/2 DSKLS PRT 
CZRMKB.P11 14-AUG-78 53 CONSOLE MESSAGES 


2 

15: 
wat 044522 046 EMS261: . @SERIAL NUMBER REGISTER (RMSN) @ 
052124 047 EMS262: . @ATTEN; ION SUMMARY REGISTER (RMAS) @ 


040503 052 EMS300: @CANNOT CLEAR @ 
@CANNOT WRITE/READ @ 
@ANY DEVICE REGISTER a 
@WITHOUT @ 


@ERROR @ 


@A ONE FROM @ 
@USING MASSBUS INITIALIZE, I.E... @ 
@A ZERO FROM @ 

@EVERY DEVICE REGISTER BIT POSITION @ 
@THE FOLLOWING BITS ARE STUCK @ 

@A SHIFTING ONE BIT FROM a 

@APPEARS STUCK AT ZERO @ 

@APPEARS STUCK AT ONE @ 

ee ee SELECT @ 

1 ‘4 1,2,4,8,16) 


a, ORa@ 

<CR><LF>@CS MBA CLRL a 
@CANNOT READ ZEROS FROM @ 
@1S INCORRECT @ 

@I1S NOT SET @ 

@1S SET a 

@SHOULD NOT BE SET a 
@SHOULD BE SET @ 

@CANNOT SET @ 

@BECAUSE @ 

@USING @ 

@DURING > a fia TRANSFER @ 
@UNEXPECTED @ 

@BUS TIMEOUT (04 TRAP) @ 
@BY REGISTER TRANSFER @ 
@CANNOT RESET @ 

ro SETTING @ 


@BUT 

awWAS RESET BY a 

@WAS SET BY a 

@IN DIAGNOSTIC MODE a 

@1S INCORRECT ACCORDING TO @ 
INCREMENT @ 


@1 TO 0 TRANSITION OF @ 
@I1S INCONSISTENT @ 
@CANNOT READ @ 
050200 ts @TEST PATTERN IN @ 
050221 101 042116 000040 EMS365: . @AND @ 
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050226 040503 047116 052117 EMS366: .ASCIZ @CANNOT INITIALIZE @ 
0 641440 EMS367: .ASCIZ @THE COMMAND SEQUENCER HAS BEEN CLOCKED @ 


050251 124 04251 
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050321 122 051505 052105 EMS370: .ASCIZ @RESET EARLY @ 
050336 


044504 020104 047516 EMS371: .ASCIZ @DID NOT RESET ON TIME @ 
050365 104 051125 047111 EMS372: .ASCIZ @DURING COMMAND EXECUTION @ 
050417 124 020117 000 EMS373: .ASCIZ aTO 
050423 127 052111 020110 EMS374: .ASCIZ @WITH ANY COMBINATION OF @ 
050454 054502 051040 040505 €EMS375: .ASCIZ @BY READING @ 
050470 054502 053440 044522 EMS376: .ASC @BY WRITING @ 

040527 020123 042523 EMS377: .ASC @WAS SET @ 
050515 127 051501 047060 EMS400: . @WAS NOT SET a 
050532 044504 104 047516 EMS401: . @DID NOT SET @ 
050547 127 044510 042514 EMS402: .ASC @WHILE @ 


LE 
@COMMAND SEQUENCER DID NOT ABORT @ 
@WAS NOT RESET @ 

@DURING @ 


@WAS RESET @ 
@SEARCH TIMEOUT @ 
@AFTER @ 

@ WAS CHANGED @ 


@ SET EARLY @ 
@ INCORRECT @ 


051016 041440 051117 042522 EMS416: .ASC @ CORRECT @ 
051030 051125 047111 EMS417: .ASC @ DURING WRITE @ 
051047 7 047105 051105 EMS420: .A @GENERATED @ 

062 052504 044522 043 EMS421 ING 


051062 516 : .AS @DUR READ @ 
051077 111 041516 051117 EMS422: .ASC @INCORRECT DATA TRANSFERRED TO MEMORY @ 


051145 011 042504 044526 EMSSO0: .ASC a DEVICE IS NONEXISTENT ,@<CR><LF> 
051176 042011 053105 041511 -ASC a DEVICE IS SWITCHED TO OTHER PORT@<CR><LF> 
051241 0 051124 047101 -ASC r) TRANSCEIVER ENABLE ey IS OF F€<CR><LF> 

30 011 043111 0464 EMS5S01 r) A MODULE, M7686,a<CR><LF 
051332 046411 051501 041123 EMS502: .ASC a MASSBUS TRANSCEIVER M5922 OR M5923 @<CR><LF> 
051401 017 051503 046440 EMSS503: .ASC a CS A neg M7684 ,@<CR><LF> 
051425 011 051504 046440 -ASC ) DS MODULE .M7685.a<CR><LF> 
051451 0 2504 044526 EMSS5O5: .ASC a DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF> 
051524 042011 053105 041511 EMS506: . a DEVICE IS NOT AN RMO3, OR@<CR><LF> 
051561 011 2504 044526 EMS5O7: . Cr) DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, OR@<CR><LF> 
051651 051501 052523 €MS510: .ASC a ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF> 
051724 005015 050011 047522 EMS511: .ASCII <CR><LF>a PROBABLE FAULT(S) :@<CR><LF> 
051753 011 047050 052117 -ASCIZ @ (NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 
052023 122 040505 020104 EMS600: .ASCIZ @READ IN PRESET COMMAND a 
052053 117 3106 042523 EMS601: .ASCIZ @OFFSET COMMAND a 
052073 052105 051125 eASCIZ @RETURN TO CENTER CENTER COMMAND @ 

34 042522 042514 051501 EMS603: .ASCIZ @RELEASE COMMAND a 
052155 041505 04610" EMS604: .ASCIZ @RECALIBRATE COMMAND a 
052202 042523 045505 041440 EMS605: .ASCIZ @SEEK COMMAND @ 
052220 042523 051101 044103 EMS606: .ASCIZ veg COMMAND @ 
052240 040504 040524 041440 EMS607: .ASCIZ A COMMAND @ 
052256 054105 041520 042124 EH1: -ASCII. @EXPCTD RECEVD REGSTR@<CR><LF> 
052306 052123 052101 0515-5 -ASCIZ @STATUS STATUS ADRESS@ 
052335 040 040502 042523 EN2: -ASCII @ BASE@<CR><LF> 
052344 042101 042522 051523 EH3: -ASCIZ @ADRESS@ 
052353 105 050130 052103 EHS: -ASCII @EXPCTD STUCK@<CR><LF> 
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052373 122 051505 046125 . @RESULT BIT(S)@ 
@EXPCTD RECEVDa 
@ FIRST SECOND CRCa 
@EXPCTD RECEVD RECEVD@<CR><LF > 
@FIRST FIRST SECOND@ 
@SNGPRT DULPRT DRVTYP@<CR><LF > 
@DRVTYP DRVTYP DRVTYP REGADRA 
@ EXPECTED ECC RECEIVED ECCa 
@EXPCTD RECEVD TEST@<CR><LF> 
REGSTR@ 
TEST@<CR><LF> 
‘ATTRN@ 


TEST@<CR><LF> 
PATTRN@ 

TEST OFFSET@<CR><LF> 
PATTRN REGSTR@ 
OF F SET@<CR><LF > 


Ra 
' RMER2@<CR><LF > 
051105 A @CMPERR PATTRN PATTRNa@ 


054105 042124 t « @EXPCTD REGSTR FUNCT ION@<CR><LF> 
122 046125 -A ADRESS CODE@ 
105 $ « STATUS _TEST@<CR><LF> 
042522 -A E ADRESS REGSTR@ 
101 : % REGSTR@<CR><LF > 
122 051505 046125 ASCIZ @RESULT ADRESS 


E 
001140 001142 001136 : ° $GDDAT , SBDDAT , SBDADR , 0 


000000 : ; $BDADR,O 
001142 000000 : ; SGDDAT , $BDDAT ,0 
001176 001200 ee $TMPO,$TMP1,$TMP2,0 
054116 001176 > % $TMPO BUFFER, $TMP1 ,BUFFER+2,0 
aS 001142 : ‘ STMPO,STMP1 ,SBDDAT , $BDADR , 0 
001202 001174 Sc STMP2,$TMP3,$TMPO,$TMP1 0 
000000 
001142 001174 ded SGDDAT , SBDDAT , $TMPO,,0 
001142 001440 : ‘ $GDDAT , $BDDAT , RMHRO,0 
001136 “ SGDDAT . $BDDAT, SBDADR, $TMPO 0 
001136 "aks $GDDAT , $BDDAT , SBDADR, $TMPO, $TMP1 , 0 
054064 001176 000000 
054072 001136 ee $BDDAT , $BDADR 
054876 000 000 000 : t 9.0.0 
000 : . 0.0 
000 000 ative 0,0,0.0 
054107 
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054110 000 000 
000 


054116 
000402 
000402 
054116 


052123 047440 
026455 026455 


052011 040522 


041505 


044103 


004460 


040 
055622 005015 
000001 


CONSOLE MESSAGES 
EF130: .BYTE 


-EVEN 

BUFFER: 
BUFONE: .BLKW 
BUFTWO: .BLKW 
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0.0,0,0,0 


258. 
258. 


= BUFFER 


BEX 
<CR><LF> 
LIST OF 


a 
<CR><LF> 
ari 


<CR><LF > 
<CR><LF > 


= 
O- NWA NODO- WS 


CR><LF> 


TESTS@<CR><LF> 
a@<CR><LF> 


TRANSFER TEST@<CR><LF> 

CTOD TEST@<CR><LF> 

MASSBUS INITIALIZE TEST@<CR><LF> 
CLEAR STUCK ACTIVE TEST@<CR><LF> 
TRISTATE TRANSFER TEST@<CR><LF> 
REGISTER SELECT TEST@<CR><LF> 
DRIVE TYPE TEST@<CR><LF> 

DEVICE AVAILABLE TEST@<CR><LF> 
SEARCH TIMEOUT TEST@<CR><LF> 

SET DTE TEST@<CR><LF> 

FORMAT CHANGE TEST@<CR><LF> 

PROM STROBE TEST@<CR><LF> 

SYNC WORD COUNT INHIBIT TEST@<CR><LF> 
SYNC DETECTION TEST@<CR><LF> 

ABORT SYNC DETECTION TEST@<CR><LF> 
SYNC GENERATION TEST@<CR><LF> 
WRITE HEADER TEST@<CR><LF> 

HEADER COMPARE TEST @<CR><LF> 

ECC GENERATION TEST@<CR><LF> 

ECC DETECTION TEST@<CR><LF> 


USE@<CR><LF> 


ERROR@<CR><LF > 
ON TEST@<CR><LF> 
ERROR TYPEOUTS@<CR><LF > 
ITERATIONS@<CR><LF > 
ERROR@<CR><LF > 
ERROR@<CR><LF > 
LOOP ON TEST IN SWR<7:0>a<CR><LF> 
™N128a<CR><LF > 
TN64a<CR><LF > 
TN32a@<CR><LF > 
™N16@<CR><LF > 
TN8@<CR><LF > 
TN4@<CR><LF > 
TN2@<CR><LF> 
TN1@<CR><LF> 


SEQ 0158 
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1512 


6747 6750 6751 6754 6755 


67144 


6729 6732 6733 6736 6737 6738 6739 6740 6741 6742 
6748 6749 6752 6753 6756 6757 
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= 120254 
00000 


ins) 
oO 
Oo 


MNMWWWOOS 
—MINOOMWSE 
WWWUIA NIE SEEM 
MOODOWO-—NWUY 
WWII NINO SO 00 00 & SO 
NOS NNOOO -— fw 


— — td od) =) 2 3 3) 3 (Lp 


— mee ed ed ed ed ed ed = 
_ we I 3 OC 


WN 
* 
oO 
Ww 


ek ed ed ed ed —_ ee ed ed eed ed ed eed 
med eed ed eed ed —_ me ee a ee ed ed ed ed 
AON NW 

COuoOOo—-W 

dtd od od od 

ak ed wed ed ed 

COCOCO.ON VWI 

NOOOr 

— od td od od —_ — od 2 =) 8 
Mmnrormn— 

ooo-o MN 

ONOOX— 


5257 53174 
5267 53184 
100000 
054116 3483 3798 
054116 5 76054 


5247* 5260* 5271* 53194 
SNC 
K 


CLOC 001526 5 343% 5608 5684 
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0006040 2562 2624 2677 2687 2767 2832 2893 3038 
3203 3286 3471 3568 3663 4731 


030752 
004254 


nnn i 


ECRC 001000 
EDT1 037760 
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CZRMKB.P11 14-AUG-78 15: 
1985 1993 


1881 1889 1897 1921 1929 1969 
2033 2041 2049 2135 2143 2183 75444 
2151 75544 


1681 1913 75464 


1826 1842 1850 
1954 1978 1986 
2176 2192 75594 


037650 1776 1784 
1896 1920 
2048 2134 


EHT115 037724 
EHT130 
EHT132 
EHT145 
a 


EHT 
EHT213 037750 
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CZRMKB.P11 


14-AUG-78 15:53 
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75278 


6860 
6863 
75714 


75714 


6863 
6872 


75714 


7023 
75714 


6867 6870 6920 
75714 


7441 


7367 
7446 


7480 


75714 
7485 


SEQ 0163 





I 13 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12:59 PAGE 165 SEQ 0164 
CZRMKB.P11 14-AUG-78 15:53 CROSS REFERENCE TABLE == USER SYMBOLS 


041363 75714 


7464 7516 
7228 7262 75714 
75714 


7042 7057 
7262 7275 


7164 7173 7195 
7027 7042 7057 
75714 


7211 75714 
7356 


EMS333 


EMS334 047374 
EMS335 047404 


EMS336 047427 
. 75714 
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EMS337 047446 6842 6845 6966 6978 6990 7013 7018 7037 7052 7070 7116 7123 7142 
7177 7181 7185 7189 7205 7236 7262 7279 7288 75714 

EMS34_ 042171 7091 7208 75718 

EMS340 047462 6816 6819 6834 6860 6863 6867 6870 6942 6947 7200 7377 7387 7409 
7419 7441 7451 7480 7511 75714 

EMS341 047473 6845 6920 6973 6985 6990 7000 7013 7018 7032 7037 7047 7052 7070 
ee re 7109 7116 7123 7221 7224 7228 7232 7236 7240 7244 7253 

EMS342 047502 6930 6942 6957 7341 75714 

EMS343 047534 6893 6957 75714 

EMS344 047550 6957 75714 . 

EMS345 047577 6963 6966 7113 7248 7282 75714 

EMS346 047625 a ee 6973 6985 7000 7032 7047 7113 7240 7244 7248 7253 7313 

EMS347 047643 6969 6980 6995 7027 7042 7057 7074 75714 

EMS35_ 042227 7098 7171 7181 7189 7205 75714 

EMS350 047664 7005 7009 7018 7023 7291 7322 7361 7372 75714 

EMS351 047671. 7005 75714 

EMS352 047707 6822 6826 7023 75714 

EMS353 047723 6925 6927 7066 7138 7148 7152 7160 7168 7177 7215 7345 75714 

EMS354 047747 re 7083 7127 7138 7145 7160 7168 7215 7258 7268 7271 7275 7350 

EMS355 050002 7087 7091 7109 75714 

EMS356 050024 6830 7330 7334 7338 7477 75714 

EMS357 050044 7098 7326 75714 

EMS36 = 042271 7105 7131 7142 7145 7148 7152 7200 7326 7385 7396 7403 7417 7428 
7435 7449 7460 7467 7498 75714 

EMS360 0 7098 7330 75714 

EMS361 050114 7334 75714 

EMS362 050142 7102 75714 

EMS363 050163 7120 7295 7298 7322 75714 

EMS364 050200 7127 7271 7275 75714 

EMS365 050221 6863 7127 7138 7148 7152 7160 7168 7215 7341 7345 7350 75714 

EMS366 050226 7135 75714 

EMS367 050251 7138 7148 7152 7160 7168 7215 7345 75714 

EMS37 = 042321 7109 75714 

EMS370 050321 6852 6874 6879 6903 7148 7396 7428 7460 7490 75714 

EMS371 050336 6923 7152 7494 75714 

EMS372 050365 6816 6819 7181 7185 7192 7326 7350 7361 7372 75714 

EMS373 050417 7248 7282 75714 

EMS374 050423 7262 75714 

EMS375 050454 7301 75714 

EMS376 050470 7305 7309 7317 7361 75714 

EMS377 050504 osie SNe 6863 7341 7350 7361 7382 7400 7414 7432 7446 7464 7485 

EMS4 040227 6898 7095 75714 

EMS40 2361 7113 7116 75714 

EMS400 050515 6819 6872 7372 75714 

EMS401 050532 ih ee 6885 6903 6906 7345 7363 7372 7392 7424 7456 7469 7502 

EMS402 050547 6822 6826 6830 6870 7382 7400 7414 7432 7446 7464 7485 7516 75714 

EMS403 050556 7382 7400 7414 7432 7446 7464 7485 7516 75714 

EMS404 050617 7387 7419 7451 7498 7511 75714 

EMS405 050636 6890 6900 7377 7387 7392 7396 7405 7409 7419 7424 7428 7437 7441 


7451 7456 7460 7469 7473 7480 7490 7494 7498 7502 7507 7511 7521 
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CZRMKB.P11 


EMS502 
EMS503 


EMS504 


EMS505 


EMS511 


051305 


051332 
051401 


051425 


051451 


051724 


14-AUG-78 15:53 
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7377 7409 7441 7480 75714 


7127 7181 7185 7192 7338 7341 


6900 6917 6925 75714 
75714 
6906 6917 75714 


75714 


SEQ 0166 
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75714 
7511 7516 7521 75714 


7392 7424 7456 75714 


7477 7480 7511 75714 


EMT112 
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68134 
72054 


72114 
72154 
EMT174 035462 72194 





CZRMKBO ewe DSKLS PRT 2 
CZRMKB.P11 


EMT175 


EMT255 


035510 


060 
037076 
037114 


14-AUG-78 1 


15:53 
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68194 


68224 


68264 


68304 


68344 


CROSS REFERENCE TABLE == USER SYMBOLS 


SEQ 0169 
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CZRMKB.P11 14-AUG-78 15:53 


037140 


033354 


MACY11 30A(1052) 


CROSS REFERENCE TABLE =~ USER SYMBOLS 


18-AUG-78 


B 14 
12:59 PAGE 171 


SEQ 0170 
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3667 54984 


5219 
2244* 5338* 5339% 5354* 5376* 6146* 


ES' 
GE 
GE 
GE 
GE 
GE 
GE 
GE 
Ge 
GE 
GE 
GE 
GE 
GE 
GE 
GE 
GE 
GE 


aRRRRRRS 


22 ze 
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2628 2649 2681 2697 2771 2808 2844 2869 3109 3116 
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MOL = 010000 
MRD = 002000 
MRIAAA= 051401 


6732 6733 6734 
6745 6746 6747 


3736 4944 4949 4982 


5779 
023104 
030755 2430 67204 
000000 
000040 
000100 
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CZRMKB.P11 


RMDB 
RMDB I 


001326 
001402 
000010 


001336 
001412 
000052 
001400 
001454 
000006 


001334 
001410 


AO 
= 000022 


001350 


MACY1? 30A(1052) 
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2489 


5346 


5359 5392 


6621* 6622* 6631* 6637*  6649% 


4888 

2354 2422 2431 6474 66124 
66144 

5164 


6650* 


SEQ 0174 
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2790* 2841* 2901* 3020* 3197* 


2871* o 3028* 
4616* 5588 


2775* 2852* 3018* 
33 


5 

57 5758* 
5818* 

RMMRII 001352 
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001426 
000040 
001366 
001442 
000032 
001360 


001434 
000004 


14-AUG-78 15:53 
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3877 3878* 3880 3881* 
4525* 
4025 4197 


2777s 2839* 
3 32 


2674 
3974 


5357* 


SEQ 0176 
4494 4504 


4689 


3055 
3055* 
5590 


3283 3309 


5184 6140 6154 
6629 6642* 
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SwO2 = 9914 1001 

SwO3 = 000010 9904 1000 

SwO4 = 000020 9894 999 

SswOS = 9884 998 

SwO6 = 000100 9878 997 

SwO7 = 00 9864 996 

SswO8 = 000400 9854 995 

SswO9 = 001000 9844 994 

Swi = 2 10024 

Sw10 = 002000 9834 

Swil = 000 9824 

Swi2 = 010000 9814 

SW13 = 020000 980# 5184 

SW14 = 040000 9794 

Swi5 = 100000 9784 

Swe = 10014 

Sw3 = 000010 10004 

SW4 == 000020 OF 

SWS == 000040 9984 

SWw6 = 000100 9974 

SW? = 200 9 

jWB = 00 9954 

Sw9 == 001000 9944 

TADMSK= 003400 11104 

TAG = 020000 12324 

TAGADR= 001114 14144 1421 : 

TAP = 040000 12074 : 

TA1 = 000400 11014 

TA2 = 001000 11004 

TAS = 002000 10994 

TBITVE= 000014 10364 

TIME 001522 16034  5387* 5404* 5406* 

TKVEC = 000060 10434 6295*  6296* 

TPVEC = 10444 

TRAPVE= 000034 10424 2220* 2221* 

TRE = 040000 13044 

TRIVEC= 000014 10374 

TST = 010000 12334 

TSTNMB 022442 5195* 5196* 5198 53154 

TSTQUE 001456 15934 2455 2456* 2492 2537 2623 2676 2724 2765 2979 3251 3285 3311 

$3 3466 3567 3655 3793 3908 3976 4123 4319 4611 4878 5111 5113* 

* 

TST1 004 25264 6199 

TST10 10324 32744 6206 

TST11 010446 33014 6207 

TST12 010746 33654 6208 

TST13. =—-011334 34564 6209 

TST14 011760 35574 6210 

TST15 =012344 36454 6211 

TST16 013056 6212 

TST17 = 0.13532 38984 6213 

TST2 5004 26134 6200 

TST20 014004 9664 6214 

TST21 014526 41134 6215 

TST22 506 4309# 6216 


015 
TST23 016756 46014 6217 
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020202 


5409*  5607* 
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001142 


65224 
218 5282 5290 5310 6089 6124 6248 6273 
59674 
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2419* 2446* 
6268 


2481 
6070 


an 

* 

3902* ere 3460* 
6243* 


6241* 
6264 


021656 
027246 
000001 


SLPERR 
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3563* 3651% 3789% 3904* 3972 4119" 4315*  4607* 6263 
5345* 5346% 5360* 5361* 5368*  5369* 


14724 2265 2481 
3558 3646 


6705* 
6683 
6686* 


27094 27514 
3363 3454 
41094 43054 


6640* 


2216 
000137 2218 2222 2224 
5129 6260 6316 6321 
$STUP = 177777 


$SVLAD 026336 6149 61884 


‘ 
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3302* 
6189* 


025426 
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STYPOS 025366 59934 6604 

SUNIT 001234 14784 2492* 5190 

SUNITM 001110 14124 

SUSWR 001246 14854 

$VECT1 001272 15104 2373 2388* 2389 2415* 

$VECT2 001274 15114 

$XTSTR 026110 61434 

$$GET4= 000000 51574 

$$SWO8= 000025 61984 6199 62004 62014 62024 62034 62044 62054 62064 62074 62084 62094 62104 
62114 62124 62134 62144 62154 62164 62174 62184 62194 

SOFILL 025611 5994* 5998* 6008 60434 

S4OCAT= x*eeee U 6140 6247 

. = 055625 13654 13694 1378 1379# 13814 13834 13884 13914 1397 13984 14004 14024 1414 


14214 1463 15934 2213 2228 2229 22754 51424 5165 51664 59674 6124 6197 
6198 6273 6276 62804 6281 62824 65204 6521 65284 6633 6655 67124 67224 


-SASTA= eeeaee UY 6664 6667 
-$X = 001100 13974 1402 


a 


C 15 
CZRMKBO RMO3/2 DSKLS PRT 2 MACY11 30A(1052) 18-AUG-78 12:59 PAGE nt SEQ 0184 
CZRMKB.P11 14-AUG=78 15:53 CROSS REFERENCE TABLE -=- MACRO NAMES 


2687 2725 2767 2832 3126 
3568 3663 4124 
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3046 
5593 
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TAGS 9054 1526 
TRMTRP 65944 


TSTSET 9054 2529 2615 2668 2716 2757 2971 3243 3277 3303 3367 3458 3559 3647 3785 
3900 3968 4115 4311 4603 4870 


TYPOCS 10464 2376 2397 5190 5198 5207 5213 


SSCMTIM ) =(14154 1452 1453 1454 1455 1456 


SSNEWT 10464 2522 2609 2661 2709 2751 2964 3236 3270 3297 3361 3452 3553 3641 3779 
3894 3962 4109 4305 4597 4864 
SSSET 65944 6603 6604 6695 6606 6607 6609 6611 6612 6613 6614 6615 6616 


SERRT 9054 
$SMULT 9054 
SPOWE 9054 6617 
$SRAND 9054 
- $RDDE 9054 


- ABS. 056126 000 


ERRORS DETECTED: 0 
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DSKZ: CZRMKB . BIN, xr on SEQ/SOL/NL : TOC: CND:MC :MD/LI :ME/DOC/CRF=DSKM: CZRMKB.P11 
RUN-TIME: 35 24 3 S mes. 

RUN-TIME RATIO: aavoee 2.2 

CORE USED: 32k (63 PAGES) 


DOCUMENT PAGES: 187 





